*&---------------------------------------------------------------------* *& Report ZS13_MOVIE_DO_ALL_CREA *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zs13_movie_do_all_crea. "Constants CONSTANTS co_as4user TYPE as4user VALUE 'QUICKSTED'. CONSTANTS co_as4date TYPE as4date VALUE '20220630'. CONSTANTS co_as4time TYPE as4time VALUE '235959'. CONSTANTS co_ddlanguage TYPE ddlanguage VALUE 'D'. CONSTANTS co_prefix TYPE string VALUE 'ZS13_'. "Typen TYPES tv_type TYPE c LENGTH 4. TYPES tv_len TYPE n LENGTH 6. TYPES tv_pos TYPE n LENGTH 4. TYPES : BEGIN OF ts_extras, table TYPE c LENGTH 5, field TYPE c LENGTH 10, value1 TYPE string, value2 TYPE string, value3 TYPE string, value4 TYPE string, END OF ts_extras. TYPES tt_extras TYPE STANDARD TABLE OF ts_extras WITH EMPTY KEY. ********************************************************************************************* ********************************************************************************************* ********************************************************************************************* CLASS lcl_extras DEFINITION. PUBLIC SECTION. METHODS constructor IMPORTING iv_name TYPE string iv_desc TYPE string. METHODS add_dd01v IMPORTING iv_type TYPE tv_type iv_len TYPE tv_len. METHODS add_lowercase. METHODS add_entitytab IMPORTING iv_entitytab TYPE entitytab. METHODS add_fixvalues IMPORTING iv_pos TYPE tv_pos iv_name TYPE string iv_val1 TYPE string iv_val2 TYPE string OPTIONAL. METHODS add_column IMPORTING iv_pos TYPE tv_pos iv_name TYPE string iv_roll TYPE string iv_key TYPE abap_bool OPTIONAL. METHODS add_cuky_unit IMPORTING iv_col TYPE string iv_reffield TYPE string. METHODS read_objname RETURNING VALUE(rv_objname) TYPE sobj_name. METHODS read_descr RETURNING VALUE(rv_descr) TYPE string. METHODS read_type RETURNING VALUE(rv_type) TYPE tv_type. METHODS read_typelen RETURNING VALUE(rv_typelen) TYPE tv_len. METHODS read_lowercase RETURNING VALUE(rv_lowercase) TYPE abap_bool. METHODS read_entitytab RETURNING VALUE(rv_entitytab) TYPE entitytab. METHODS read_fixvalues RETURNING VALUE(rt_fixvalues) TYPE tt_extras. METHODS read_columns RETURNING VALUE(rt_columns) TYPE tt_extras. METHODS read_cuky_unit RETURNING VALUE(rt_cuky_unit) TYPE tt_extras. PRIVATE SECTION. DATA mt_extras TYPE tt_extras. ENDCLASS. CLASS lcl_extras IMPLEMENTATION. METHOD constructor. me->mt_extras = VALUE #( ( table = 'HEAD' value1 = iv_name value2 = iv_desc ) ). ENDMETHOD. METHOD add_dd01v. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD01V' value1 = iv_type value2 = iv_len ) ). ENDMETHOD. METHOD add_lowercase. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD01V' field = 'CASE' value1 = abap_true ) ). ENDMETHOD. METHOD add_entitytab. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD01V' field = 'ENTITYTAB' value1 = iv_entitytab ) ). ENDMETHOD. METHOD add_fixvalues. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD07V' field = 'FIXVALUE' value1 = iv_pos value2 = iv_name value3 = iv_val1 value4 = iv_val2 ) ). ENDMETHOD. METHOD add_column. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD03P' field = 'COL' value1 = iv_name value2 = iv_pos value3 = iv_roll value4 = iv_key ) ). ENDMETHOD. METHOD add_cuky_unit. me->mt_extras = VALUE #( BASE me->mt_extras ( table = 'DD03P' field = 'CURR' value1 = iv_col value2 = iv_reffield ) ). ENDMETHOD. METHOD read_objname. rv_objname = CONV sobj_name( me->mt_extras[ table = 'HEAD' ]-value1 ) ##OPERATOR[SOBJ_NAME]. ENDMETHOD. METHOD read_descr. rv_descr = me->mt_extras[ table = 'HEAD' ]-value2. ENDMETHOD. METHOD read_type. rv_type = me->mt_extras[ table = 'DD01V' ]-value1. ENDMETHOD. METHOD read_typelen. rv_typelen = me->mt_extras[ table = 'DD01V' ]-value2. ENDMETHOD. METHOD read_lowercase. rv_lowercase = VALUE lowercase( me->mt_extras[ table = 'DD01V' field = 'CASE' ]-value1 OPTIONAL ). ENDMETHOD. METHOD read_entitytab. rv_entitytab = VALUE entitytab( me->mt_extras[ table = 'DD01V' field = 'ENTITYTAB' ]-value1 OPTIONAL ). ENDMETHOD. METHOD read_fixvalues. rt_fixvalues = VALUE tt_extras( FOR lls_extras IN me->mt_extras WHERE ( table = 'DD07V' ) ( lls_extras ) ). ENDMETHOD. METHOD read_columns. rt_columns = VALUE tt_extras( FOR lls_extras IN me->mt_extras WHERE ( table = 'DD03P' AND field = 'COL' ) ( lls_extras ) ). ENDMETHOD. METHOD read_cuky_unit. rt_cuky_unit = VALUE tt_extras( FOR lls_extras IN me->mt_extras WHERE ( table = 'DD03P' AND field = 'CURR' ) ( lls_extras ) ). ENDMETHOD. ENDCLASS. ********************************************************************************************* ********************************************************************************************* ********************************************************************************************* CLASS lcl_ddic DEFINITION. PUBLIC SECTION. CLASS-METHODS ddic_dtel_crea IMPORTING ir_extras TYPE REF TO lcl_extras. CLASS-METHODS ddic_dtel_activate IMPORTING iv_objname TYPE sobj_name. CLASS-METHODS ddic_doma_crea IMPORTING ir_extras TYPE REF TO lcl_extras. CLASS-METHODS ddic_doma_activate IMPORTING iv_objname TYPE sobj_name. CLASS-METHODS ddic_tabl_crea IMPORTING ir_extras TYPE REF TO lcl_extras. CLASS-METHODS ddic_tabl_activate IMPORTING iv_objname TYPE sobj_name. CLASS-METHODS tadir_write IMPORTING iv_objname TYPE sobj_name iv_tadir_obj TYPE trobjtype. ENDCLASS. CLASS lcl_ddic IMPLEMENTATION. METHOD ddic_doma_crea. DATA(lv_objname) = ir_extras->read_objname( ). "OSC_YEAR DATA(lv_domaname) = CONV ddobjname( co_prefix && lv_objname ). "ZA12_OSC_YEAR DATA lv_rc LIKE sy-subrc. DATA(lv_ddtext) = ir_extras->read_descr( ). "Oscar: Jahr der ... "Domänenheader erstellen "Berücksichtigung Groß-/Kleinschreibweise DATA(lv_lowercase) = ir_extras->read_lowercase( ). "Berücksichtigung Wertetabelle DATA(lv_entitytab) = ir_extras->read_entitytab( ). IF lv_entitytab IS NOT INITIAL. lv_entitytab = co_prefix && lv_entitytab. ENDIF. "Erzeugen des Übergabeparameters für den Domänenheader DATA(ls_dd01v) = VALUE dd01v( domname = lv_domaname ddlanguage = co_ddlanguage datatype = ir_extras->read_type( ) leng = ir_extras->read_typelen( ) outputlen = ir_extras->read_typelen( ) lowercase = lv_lowercase entitytab = lv_entitytab as4user = co_as4user as4date = co_as4date as4time = co_as4time ddtext = lv_ddtext dommaster = co_ddlanguage ). "Berücksichtigung Festwerte "Erzeugen des Übergabeparameters für die Festwerte DATA(lt_extras) = ir_extras->read_fixvalues( ). DATA ls_dd07v TYPE dd07v. DATA lt_dd07v LIKE STANDARD TABLE OF ls_dd07v. IF lt_extras IS NOT INITIAL. LOOP AT lt_extras INTO DATA(ls_extras). ls_dd07v-domname = lv_domaname. ls_dd07v-ddlanguage = co_ddlanguage. ls_dd07v-valpos = ls_extras-value1. ls_dd07v-ddtext = ls_extras-value2. ls_dd07v-domvalue_l = ls_extras-value3. ls_dd07v-domvalue_h = ls_extras-value4. APPEND ls_dd07v TO lt_dd07v. ENDLOOP. ENDIF. "Erstellen der Domäne CALL FUNCTION 'DDIF_DOMA_PUT' EXPORTING name = lv_domaname dd01v_wa = ls_dd01v TABLES dd07v_tab = lt_dd07v EXCEPTIONS doma_not_found = 1 name_inconsistent = 2 doma_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. "Log-Ausgabe WRITE / |DDIF_DOMA_PUT: sy-subrc = { sy-subrc }|. IF sy-subrc NE 0. WRITE | ##### Fehler!|. ENDIF. "Do the rest lcl_ddic=>ddic_doma_activate( lv_objname ). lcl_ddic=>tadir_write( EXPORTING iv_objname = lv_objname iv_tadir_obj = 'DOMA' ). ENDMETHOD. METHOD ddic_dtel_crea. DATA(lv_objname) = ir_extras->read_objname( ). "OSC_YEAR "First: Write the Log WRITE / |*** DOMA/DTEL { lv_objname } ******************************************************************|. "Second: Call the creation of the domain. lcl_ddic=>ddic_doma_crea( ir_extras ). "Then create the data element. DATA(lv_dtelname) = CONV ddobjname( co_prefix && lv_objname ). "ZA12_OSC_YEAR DATA lv_rc LIKE sy-subrc. DATA(lv_ddtext) = ir_extras->read_descr( ). "Oscar: Jahr der ... DATA(lv_scrtext_l) = CONV scrtext_l( to_mixed( lv_objname ) ). "OscYear DATA(lv_scrtext_m) = CONV scrtext_m( lv_scrtext_l ). "OscYear DATA(lv_scrtext_s) = CONV scrtext_s( lv_scrtext_l ). "OscYear DATA(ls_dd04v) = VALUE dd04v( rollname = lv_dtelname ddlanguage = co_ddlanguage domname = lv_dtelname as4user = co_as4user as4date = co_as4date as4time = co_as4time dtelmaster = co_ddlanguage scrlen1 = strlen( lv_scrtext_s ) scrlen2 = strlen( lv_scrtext_m ) scrlen3 = strlen( lv_scrtext_l ) headlen = strlen( lv_ddtext ) ddtext = lv_ddtext reptext = lv_ddtext scrtext_s = lv_scrtext_s scrtext_m = lv_scrtext_m scrtext_l = lv_scrtext_l ). "Create the data element in the DDIC CALL FUNCTION 'DDIF_DTEL_PUT' EXPORTING name = lv_dtelname dd04v_wa = ls_dd04v EXCEPTIONS dtel_not_found = 1 name_inconsistent = 2 dtel_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. "Log-Ausgabe WRITE / |DDIF_DTEL_PUT: sy-subrc = { sy-subrc }|. IF sy-subrc NE 0. WRITE | ##### Fehler!|. ENDIF. "Do the rest lcl_ddic=>ddic_dtel_activate( lv_objname ). lcl_ddic=>tadir_write( EXPORTING iv_objname = lv_objname iv_tadir_obj = 'DTEL' ). ENDMETHOD. METHOD ddic_doma_activate. DATA lv_rc LIKE sy-subrc. DATA(lv_objname) = CONV ddobjname( co_prefix && iv_objname ). "Aktivieren des DDIC-Objektes CALL FUNCTION 'DDIF_DOMA_ACTIVATE' EXPORTING name = lv_objname IMPORTING rc = lv_rc EXCEPTIONS not_found = 1 put_failure = 2 OTHERS = 3. "Log-Ausgabe WRITE / |DDIF_DOMA_ACTIVATE: sy-subrc = { sy-subrc }, rc = { lv_rc }|. IF ( sy-subrc NE 0 AND sy-subrc NE 4 ) OR lv_rc > 4. WRITE | ##### Fehler!|. ELSE. "Vorsichtshalber die DB-Änderung über ein Commit festschreiben. COMMIT WORK. ENDIF. ENDMETHOD. METHOD ddic_dtel_activate. DATA lv_rc LIKE sy-subrc. DATA(lv_objname) = CONV ddobjname( co_prefix && iv_objname ). "Aktivieren des DDIC-Objektes CALL FUNCTION 'DDIF_DTEL_ACTIVATE' EXPORTING name = lv_objname IMPORTING rc = lv_rc EXCEPTIONS not_found = 1 put_failure = 2 OTHERS = 3. "Log-Ausgabe WRITE / |DDIF_DTEL_ACTIVATE: sy-subrc = { sy-subrc }, rc = { lv_rc }|. IF ( sy-subrc NE 0 AND sy-subrc NE 4 ) OR lv_rc > 4. WRITE | ##### Fehler!|. ELSE. "Vorsichtshalber die DB-Änderung über ein Commit festschreiben. COMMIT WORK. ENDIF. ENDMETHOD. METHOD ddic_tabl_activate. DATA lv_rc LIKE sy-subrc. DATA(lv_objname) = CONV ddobjname( co_prefix && iv_objname ). "Aktivieren des DDIC-Objektes CALL FUNCTION 'DDIF_TABL_ACTIVATE' EXPORTING name = lv_objname IMPORTING rc = lv_rc EXCEPTIONS not_found = 1 put_failure = 2 OTHERS = 3. "Log-Ausgabe WRITE / |DDIF_TABL_ACTIVATE: sy-subrc = { sy-subrc }, rc = { lv_rc }|. IF ( sy-subrc NE 0 AND sy-subrc NE 4 ) OR lv_rc > 4. WRITE | ##### Fehler!|. ELSE. "Vorsichtshalber die DB-Änderung über ein Commit festschreiben. COMMIT WORK. ENDIF. ENDMETHOD. METHOD ddic_tabl_crea. DATA lt_extras TYPE tt_extras. DATA ls_extras LIKE LINE OF lt_extras. DATA lt_dd03p TYPE dd03ptab. DATA ls_dd03p LIKE LINE OF lt_dd03p. DATA(lv_objname) = ir_extras->read_objname( ). "OSCAR "First: Write the Log WRITE / |*** TABL { lv_objname } ******************************************************************|. "Create the header of the table DATA(lv_tablname) = CONV ddobjname( co_prefix && lv_objname ). "ZA12_OSCAR DATA lv_rc LIKE sy-subrc. DATA(lv_ddtext) = ir_extras->read_descr( ). "Oscar: Jahr der ... DATA(ls_dd02v) = VALUE dd02v( tabname = lv_tablname ddlanguage = co_ddlanguage tabclass = 'TRANSP' clidep = 'X' ddtext = lv_ddtext authclass = '00' as4user = co_as4user as4date = co_as4date as4time = co_as4time masterlang = co_ddlanguage mainflag = 'X' contflag = 'A' exclass = 3 ). "Create the technical settings of the table DATA(ls_dd09v) = VALUE dd09v( tabname = lv_tablname as4local = 'A' as4vers = '0' tabkat = '0' tabart = 'APPL0' as4user = co_as4user as4date = co_as4date as4time = co_as4time bufallow = 'N' roworcolst = 'C' ). "Create the table for the columns lt_extras = ir_extras->read_columns( ). lt_dd03p = VALUE #( FOR lls_extras IN lt_extras ( tabname = lv_tablname fieldname = lls_extras-value1 position = lls_extras-value2 rollname = lls_extras-value3 keyflag = lls_extras-value4 mandatory = lls_extras-value4 ) ). "Consider currencies and quantities lt_extras = ir_extras->read_cuky_unit( ). LOOP AT lt_dd03p INTO ls_dd03p. READ TABLE lt_extras INTO ls_extras WITH KEY value1 = ls_dd03p-fieldname. IF sy-subrc = 0. ls_dd03p-reftable = ls_dd03p-tabname. ls_dd03p-reffield = ls_extras-value2. MODIFY lt_dd03p FROM ls_dd03p. ENDIF. ENDLOOP. "Create the data element in the DDIC CALL FUNCTION 'DDIF_TABL_PUT' EXPORTING name = lv_tablname dd02v_wa = ls_dd02v dd09l_wa = ls_dd09v TABLES dd03p_tab = lt_dd03p EXCEPTIONS tabl_not_found = 1 name_inconsistent = 2 tabl_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. "Log-Ausgabe WRITE / |DDIF_TABL_PUT: sy-subrc = { sy-subrc }|. IF sy-subrc NE 0. WRITE | ##### Fehler!|. ENDIF. "Do the rest lcl_ddic=>ddic_tabl_activate( lv_objname ). lcl_ddic=>tadir_write( EXPORTING iv_objname = lv_objname iv_tadir_obj = 'TABL' ). ENDMETHOD. METHOD tadir_write. DATA(lv_objname) = CONV sobj_name( co_prefix && iv_objname ). "Jetzt existiert das Datenelement zwar, hat aber noch Schwierigkeiten mit dem "ABAP-Repository-Katalog (-> kein Eintrag in Tabelle TADIR). Als Folgeproblem "gibt es Schwierigkeiten mit der Mastersprache. Also den TADIR-Eintrag erstellen. CALL FUNCTION 'TRINT_TADIR_MODIFY' EXPORTING author = co_as4user devclass = '$TMP' masterlang = co_ddlanguage object = iv_tadir_obj obj_name = lv_objname pgmid = 'R3TR' change_masterlang = abap_true force_mode = abap_false EXCEPTIONS object_exists_global = 1 object_exists_local = 2 object_has_no_tadir = 3 OTHERS = 4. "Log-Ausgabe WRITE / |TRINT_TADIR_MODIFY: sy-subrc = { sy-subrc }|. IF sy-subrc NE 0. WRITE | ##### Fehler!|. ENDIF. ENDMETHOD. ENDCLASS. ********************************************************************************************* ********************************************************************************************* ********************************************************************************************* START-OF-SELECTION. "Parameters * PARAMETERS p_onldel TYPE c LENGTH 1 DEFAULT abap_false. DATA gr_extras TYPE REF TO lcl_extras. "Datenelemente für Tabelle OSCAR gr_extras = NEW #( iv_name = 'OSC_YEAR' iv_desc = 'Oscar: Jahr der Verleihung' ). gr_extras->add_dd01v( iv_type = 'NUMC' iv_len = 4 ). gr_extras->add_fixvalues( iv_pos = 1 iv_name = 'Verleihungszeitraum' iv_val1 = '1928' iv_val2 = CONV string( sy-datlo(4) ) ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_NR' iv_desc = 'Oscar: Nummer der Oscar-Gala' ). gr_extras->add_dd01v( iv_type = 'INT1' iv_len = 3 ). gr_extras->add_fixvalues( iv_pos = 1 iv_name = 'Oscar-Galanummer' iv_val1 = '1' iv_val2 = CONV string( sy-datlo(4) - 1928 + 1 ) ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_DATE' iv_desc = 'Oscar: Datum der Oscar-Gala' ). gr_extras->add_dd01v( iv_type = 'DATS' iv_len = 8 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_MOVIE' iv_desc = 'Oscar: Name eines Films' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_NO_COMP' iv_desc = 'Oscar: Anzahl der Nominierungen' ). gr_extras->add_dd01v( iv_type = 'INT1' iv_len = 3 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_PERSON' iv_desc = 'Oscar: Name der Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Tabelle OSCAR_SONG gr_extras = NEW #( iv_name = 'OSC_SNG_NAME' iv_desc = 'Oscar: Bester Song - Name' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_SNG_STATUS' iv_desc = 'Oscar: Bester Song - Status' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 1 ). gr_extras->add_fixvalues( iv_pos = 1 iv_name = 'Gewonnen' iv_val1 = 'W' ). gr_extras->add_fixvalues( iv_pos = 2 iv_name = 'Nominiert' iv_val1 = 'N' ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_YEAR' iv_desc = 'Movie: Jahr der Erstveröffentlichung' ). gr_extras->add_dd01v( iv_type = 'NUMC' iv_len = 4 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_MOVIE' iv_desc = 'Movie: Name eines Films' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Tabelle DISTRIBUTOR gr_extras = NEW #( iv_name = 'DTR_DISTR_ID' iv_desc = 'Distributor: Distributor-ID' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 4 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'DTR_DISTR_NAME' iv_desc = 'Distributor: Name des Distributors' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'DTR_YEAR_BEG' iv_desc = 'Distributor: Aufnahme des Geschäftes' ). gr_extras->add_dd01v( iv_type = 'NUMC' iv_len = 4 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'DTR_YEAR_END' iv_desc = 'Distributor: Ende des Geschäftes' ). gr_extras->add_dd01v( iv_type = 'NUMC' iv_len = 4 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Tabelle PERSON gr_extras = NEW #( iv_name = 'PERS_FULLNAME' iv_desc = 'Person: Vollständiger Name einer Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 30 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_FULLNAMEINV' iv_desc = 'Person: Vollständiger Name einer Person (invertiert)' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 30 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_FIRSTNAME' iv_desc = 'Person: Vorname einer Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 20 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_LASTNAME' iv_desc = 'Person: Nachname einer Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 20 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_BIRTHNAME' iv_desc = 'Person: Abweichender Geburtsname einer Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 40 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_DATE' iv_desc = 'Person: Geburts-/Sterbedatum einer Person' ). gr_extras->add_dd01v( iv_type = 'DATS' iv_len = 8 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_LOCATION' iv_desc = 'Person: Geburts-/Sterbeort einer Person' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 50 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_FLG_ARTIST' iv_desc = 'Person: Flag Schauspieler' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 1 ). gr_extras->add_fixvalues( iv_pos = 1 iv_name = 'Schauspieler' iv_val1 = 'X' ). gr_extras->add_fixvalues( iv_pos = 2 iv_name = 'Kein Schauspieler' iv_val1 = ' ' ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'PERS_FLG_DIRECTOR' iv_desc = 'Person: Flag Regisseur' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 1 ). gr_extras->add_fixvalues( iv_pos = 1 iv_name = 'Regisseur' iv_val1 = 'X' ). gr_extras->add_fixvalues( iv_pos = 2 iv_name = 'Kein Regisseur' iv_val1 = ' ' ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Tabelle OSCAR_GALA gr_extras = NEW #( iv_name = 'OSC_CITY' iv_desc = 'Oscar Gala: Stadt der Gala' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 20 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_LOCATION' iv_desc = 'Oscar Gala: Austragungsort der Gala' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 40 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_HOST' iv_desc = 'Oscar Gala: Gastgeber der Gala' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 30 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Texttabelle OSCART gr_extras = NEW #( iv_name = 'OSC_LANG' iv_desc = 'Oscar: Sprache der Überschrift' ). gr_extras->add_dd01v( iv_type = 'LANG' iv_len = 1 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'OSC_TITLE' iv_desc = 'Oscar: Überschrift' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Tabelle MOVIES gr_extras = NEW #( iv_name = 'MOV_NAME' iv_desc = 'Movie: Name eines Films' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 60 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_DATE' iv_desc = 'Movie: Datum der Erstveröffentlichung' ). gr_extras->add_dd01v( iv_type = 'DATS' iv_len = 8 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_DISTRIBUTOR' iv_desc = 'Movie: Produktionsfirma' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 4 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_BUDGET' iv_desc = 'Movie: Budget eines Films [1.000 USD]' ). gr_extras->add_dd01v( iv_type = 'CURR' iv_len = 15 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_BOXOFFICE' iv_desc = 'Movie: Einspielergebnisse eines Films [1.000 USD]' ). gr_extras->add_dd01v( iv_type = 'CURR' iv_len = 15 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_CURRENCY' iv_desc = 'Movie: Währung' ). gr_extras->add_dd01v( iv_type = 'CUKY' iv_len = 5 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_DURATION' iv_desc = 'Movie: Dauer in Minuten' ). gr_extras->add_dd01v( iv_type = 'INT4' iv_len = 10 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_LNK_WIKI' iv_desc = 'Movie: Link zum Wikipedia-Artikel' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 100 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** gr_extras = NEW #( iv_name = 'MOV_LNK_POSTER' iv_desc = 'Movie: Link zum Film-Poster' ). gr_extras->add_dd01v( iv_type = 'CHAR' iv_len = 150 ). gr_extras->add_lowercase( ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** "Zusätzliche Datenelemente für Texttabelle MOVIEST gr_extras = NEW #( iv_name = 'MOV_LANG' iv_desc = 'Movie: Sprache des Titels' ). gr_extras->add_dd01v( iv_type = 'LANG' iv_len = 1 ). lcl_ddic=>ddic_dtel_crea( gr_extras ). "****************************************** ********************************************************************************************* ********************************************************************************************* ********************************************************************************************* "Tabelle OSCAR gr_extras = NEW #( iv_name = 'OSCAR' iv_desc = 'Oscar: Oscar-Preisträger' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'OSC_YEAR' iv_roll = co_prefix && 'OSC_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'OSC_NR' iv_roll = co_prefix && 'OSC_NR' ). gr_extras->add_column( iv_pos = '4' iv_name = 'OSC_DATE' iv_roll = co_prefix && 'OSC_DATE' ). gr_extras->add_column( iv_pos = '5' iv_name = 'OSC_BEST_FILM' iv_roll = co_prefix && 'OSC_MOVIE' ). gr_extras->add_column( iv_pos = '6' iv_name = 'OSC_BEST_FILM_COMP' iv_roll = co_prefix && 'OSC_NO_COMP' ). gr_extras->add_column( iv_pos = '7' iv_name = 'OSC_BEST_DIR' iv_roll = co_prefix && 'OSC_PERSON' ). gr_extras->add_column( iv_pos = '8' iv_name = 'OSC_BEST_DIR_COMP' iv_roll = co_prefix && 'OSC_NO_COMP' ). gr_extras->add_column( iv_pos = '9' iv_name = 'OSC_BEST_DIR_MOVYR' iv_roll = co_prefix && 'MOV_YEAR' ). gr_extras->add_column( iv_pos = '10' iv_name = 'OSC_BEST_DIR_MOV' iv_roll = co_prefix && 'MOV_MOVIE' ). gr_extras->add_column( iv_pos = '11' iv_name = 'OSC_MALE_LEAD' iv_roll = co_prefix && 'OSC_PERSON' ). gr_extras->add_column( iv_pos = '12' iv_name = 'OSC_MALE_LEAD_COMP' iv_roll = co_prefix && 'OSC_NO_COMP' ). gr_extras->add_column( iv_pos = '13' iv_name = 'OSC_MALE_LEAD_MOVYR' iv_roll = co_prefix && 'MOV_YEAR' ). gr_extras->add_column( iv_pos = '14' iv_name = 'OSC_MALE_LEAD_MOV' iv_roll = co_prefix && 'MOV_MOVIE' ). gr_extras->add_column( iv_pos = '15' iv_name = 'OSC_FEMALE_LEAD' iv_roll = co_prefix && 'OSC_PERSON' ). gr_extras->add_column( iv_pos = '16' iv_name = 'OSC_FEMALE_LEAD_COMP' iv_roll = co_prefix && 'OSC_NO_COMP' ). gr_extras->add_column( iv_pos = '17' iv_name = 'OSC_FEMALE_LEAD_MOVYR' iv_roll = co_prefix && 'MOV_YEAR' ). gr_extras->add_column( iv_pos = '18' iv_name = 'OSC_FEMALE_LEAD_MOV' iv_roll = co_prefix && 'MOV_MOVIE' ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle MOVIES gr_extras = NEW #( iv_name = 'MOVIES' iv_desc = 'Oscar: Filme' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'MOV_YEAR' iv_roll = co_prefix && 'MOV_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'MOV_NAME' iv_roll = co_prefix && 'MOV_NAME' iv_key = abap_true ). gr_extras->add_column( iv_pos = '4' iv_name = 'MOV_DATE' iv_roll = co_prefix && 'MOV_DATE' iv_key = abap_false ). gr_extras->add_column( iv_pos = '5' iv_name = 'MOV_DISTRIBUTOR' iv_roll = co_prefix && 'MOV_DISTRIBUTOR' iv_key = abap_false ). gr_extras->add_column( iv_pos = '6' iv_name = 'MOV_BUDGET' iv_roll = co_prefix && 'MOV_BUDGET' iv_key = abap_false ). gr_extras->add_column( iv_pos = '7' iv_name = 'MOV_BOXOFFICE' iv_roll = co_prefix && 'MOV_BOXOFFICE' iv_key = abap_false ). gr_extras->add_column( iv_pos = '8' iv_name = 'MOV_CURRENCY' iv_roll = co_prefix && 'MOV_CURRENCY' iv_key = abap_false ). gr_extras->add_column( iv_pos = '9' iv_name = 'MOV_DURATION' iv_roll = co_prefix && 'MOV_DURATION' iv_key = abap_false ). gr_extras->add_column( iv_pos = '10' iv_name = 'MOV_LNK_WIKI' iv_roll = co_prefix && 'MOV_LNK_WIKI' iv_key = abap_false ). gr_extras->add_column( iv_pos = '11' iv_name = 'MOV_LNK_POSTER' iv_roll = co_prefix && 'MOV_LNK_POSTER' iv_key = abap_false ). gr_extras->add_cuky_unit( iv_col = 'MOV_BUDGET' iv_reffield = 'MOV_CURRENCY' ). gr_extras->add_cuky_unit( iv_col = 'MOV_BOXOFFICE' iv_reffield = 'MOV_CURRENCY' ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle OSCAR_SONG gr_extras = NEW #( iv_name = 'OSCAR_SONG' iv_desc = 'Oscar: Bester Song' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'OSC_YEAR' iv_roll = co_prefix && 'OSC_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'SNG_NAME' iv_roll = co_prefix && 'OSC_SNG_NAME' iv_key = abap_true ). gr_extras->add_column( iv_pos = '4' iv_name = 'SNG_ARTIST' iv_roll = co_prefix && 'OSC_PERSON' iv_key = abap_false ). gr_extras->add_column( iv_pos = '5' iv_name = 'SNG_MOVIE_YEAR' iv_roll = co_prefix && 'MOV_YEAR' iv_key = abap_false ). gr_extras->add_column( iv_pos = '6' iv_name = 'SNG_MOVIE' iv_roll = co_prefix && 'OSC_MOVIE' iv_key = abap_false ). gr_extras->add_column( iv_pos = '7' iv_name = 'SNG_STATUS' iv_roll = co_prefix && 'OSC_SNG_STATUS' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle DISTRIBUTOR gr_extras = NEW #( iv_name = 'DISTRIBUTOR' iv_desc = 'Oscar: Produktion und Verleih' ). gr_extras->add_column( iv_pos = '1' iv_name = 'DTR_ID' iv_roll = co_prefix && 'DTR_DISTR_ID' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'DTR_NAME' iv_roll = co_prefix && 'DTR_DISTR_NAME' iv_key = abap_false ). gr_extras->add_column( iv_pos = '3' iv_name = 'DTR_YEAR_BEG' iv_roll = co_prefix && 'DTR_YEAR_BEG' iv_key = abap_false ). gr_extras->add_column( iv_pos = '4' iv_name = 'DTR_YEAR_END' iv_roll = co_prefix && 'DTR_YEAR_END' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle PERSON gr_extras = NEW #( iv_name = 'PERSON' iv_desc = 'Oscar: Personen' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'PERS_FULLNAME' iv_roll = co_prefix && 'PERS_FULLNAME' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'PERS_FULLNAMEINV' iv_roll = co_prefix && 'PERS_FULLNAMEINV' iv_key = abap_false ). gr_extras->add_column( iv_pos = '4' iv_name = 'PERS_FIRSTNAME' iv_roll = co_prefix && 'PERS_FIRSTNAME' iv_key = abap_false ). gr_extras->add_column( iv_pos = '5' iv_name = 'PERS_LASTNAME' iv_roll = co_prefix && 'PERS_LASTNAME' iv_key = abap_false ). gr_extras->add_column( iv_pos = '6' iv_name = 'PERS_BIRTHNAME' iv_roll = co_prefix && 'PERS_BIRTHNAME' iv_key = abap_false ). gr_extras->add_column( iv_pos = '7' iv_name = 'PERS_BIRTHDATE' iv_roll = co_prefix && 'PERS_DATE' iv_key = abap_false ). gr_extras->add_column( iv_pos = '8' iv_name = 'PERS_BIRTHPLACE' iv_roll = co_prefix && 'PERS_LOCATION' iv_key = abap_false ). gr_extras->add_column( iv_pos = '9' iv_name = 'PERS_DEATHDATE' iv_roll = co_prefix && 'PERS_DATE' iv_key = abap_false ). gr_extras->add_column( iv_pos = '10' iv_name = 'PERS_DEATHPLACE' iv_roll = co_prefix && 'PERS_LOCATION' iv_key = abap_false ). gr_extras->add_column( iv_pos = '11' iv_name = 'PERS_FLG_ART' iv_roll = co_prefix && 'PERS_FLG_ARTIST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '12' iv_name = 'PERS_FLG_DIR' iv_roll = co_prefix && 'PERS_FLG_DIRECTOR' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle OSCAR_GALA gr_extras = NEW #( iv_name = 'OSCAR_GALA' iv_desc = 'Oscar: Gala-Veranstaltungen' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'OSCG_YEAR' iv_roll = co_prefix && 'OSC_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'OSCG_CITY' iv_roll = co_prefix && 'OSC_CITY' iv_key = abap_true ). gr_extras->add_column( iv_pos = '4' iv_name = 'OSCG_LOCATION' iv_roll = co_prefix && 'OSC_LOCATION' iv_key = abap_true ). gr_extras->add_column( iv_pos = '5' iv_name = 'OSCG_HOST1' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '6' iv_name = 'OSCG_HOST2' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '7' iv_name = 'OSCG_HOST3' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '8' iv_name = 'OSCG_HOST4' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '9' iv_name = 'OSCG_HOST5' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). gr_extras->add_column( iv_pos = '10' iv_name = 'OSCG_HOST6' iv_roll = co_prefix && 'OSC_HOST' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle OSCART gr_extras = NEW #( iv_name = 'OSCART' iv_desc = 'Oscar: Titel-Texttabelle' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'OSC_YEAR' iv_roll = co_prefix && 'OSC_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'OSC_LANG' iv_roll = co_prefix && 'OSC_LANG' iv_key = abap_true ). gr_extras->add_column( iv_pos = '4' iv_name = 'OSC_TITLE' iv_roll = co_prefix && 'OSC_TITLE' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). "Tabelle MOVIEST gr_extras = NEW #( iv_name = 'MOVIEST' iv_desc = 'Oscar: Filmtitel in diversen Sprachen' ). gr_extras->add_column( iv_pos = '1' iv_name = 'MANDT' iv_roll = 'S_MANDT' iv_key = abap_true ). gr_extras->add_column( iv_pos = '2' iv_name = 'MOV_YEAR' iv_roll = co_prefix && 'MOV_YEAR' iv_key = abap_true ). gr_extras->add_column( iv_pos = '3' iv_name = 'MOV_NAME' iv_roll = co_prefix && 'MOV_NAME' iv_key = abap_true ). gr_extras->add_column( iv_pos = '4' iv_name = 'MOV_LANG' iv_roll = co_prefix && 'MOV_LANG' iv_key = abap_true ). gr_extras->add_column( iv_pos = '5' iv_name = 'MOV_NAME_FOREIGN' iv_roll = co_prefix && 'MOV_NAME' iv_key = abap_false ). lcl_ddic=>ddic_tabl_crea( gr_extras ). ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### *&---------------------------------------------------------------------* *& Report ZS13_MOVIE_DO_ALL_FILL *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zs13_movie_do_all_fill. "Constants CONSTANTS co_prefix TYPE string VALUE 'ZS13_'. "Variablen DATA gt_osc_smpl TYPE STANDARD TABLE OF zs13_oscar. DATA gt_osc_smpl_song TYPE STANDARD TABLE OF zs13_oscar_song. DATA gt_distributor TYPE STANDARD TABLE OF zs13_distributor. DATA gt_person TYPE STANDARD TABLE OF zs13_person. DATA gt_oscargala TYPE STANDARD TABLE OF zs13_oscar_gala. DATA gt_oscart TYPE STANDARD TABLE OF zs13_oscart. DATA gt_mov_movies TYPE STANDARD TABLE OF zs13_movies. DATA gt_moviest TYPE STANDARD TABLE OF zs13_moviest. DATA gv_rc LIKE sy-subrc. DATA gv_ddicname TYPE ddobjname. DATA gt_dd07v TYPE dd07vtab. DATA gv_dummy_n2 TYPE n LENGTH 2. DATA gv_tablname TYPE ddobjname. "Macro-Definition. OBSOLET. Bah! Pfuipfuipfui! DEFINE song. ls_osc_smpl_song-osc_year = &1. ls_osc_smpl_song-sng_name = &3. ls_osc_smpl_song-sng_artist = &4. ls_osc_smpl_song-sng_movie_year = &5. ls_osc_smpl_song-sng_movie = &6. ls_osc_smpl_song-sng_status = &2. APPEND ls_osc_smpl_song TO lt_osc_smpl_song. END-OF-DEFINITION. DEFINE song000. ls_osc_smpl_song-mandt = '000'. ls_osc_smpl_song-osc_year = &1. ls_osc_smpl_song-sng_name = &3. ls_osc_smpl_song-sng_artist = &4. ls_osc_smpl_song-sng_movie_year = &5. ls_osc_smpl_song-sng_movie = &6. ls_osc_smpl_song-sng_status = &2. APPEND ls_osc_smpl_song TO lt_osc_smpl_song. END-OF-DEFINITION. gv_tablname = co_prefix && 'OSCAR'. PERFORM fill_tabl_oscar USING gv_tablname. PERFORM fill_tabl_oscar_000 USING gv_tablname. gv_tablname = co_prefix && 'OSCAR_SONG'. PERFORM fill_tabl_oscarsong USING gv_tablname. PERFORM fill_tabl_oscarsong_000 USING gv_tablname. gv_tablname = co_prefix && 'DISTRIBUTOR'. PERFORM fill_tabl_distributor USING gv_tablname. gv_tablname = co_prefix && 'PERSON'. PERFORM fill_tabl_person USING gv_tablname. gv_tablname = co_prefix && 'OSCAR_GALA'. PERFORM fill_tabl_oscargala USING gv_tablname. gv_tablname = co_prefix && 'OSCART'. PERFORM fill_tabl_oscart USING gv_tablname. gv_tablname = co_prefix && 'MOVIES'. "Filling the current client PERFORM fill_tabl_movie USING gv_tablname. "Filling client 000 PERFORM fill_tabl_movie_000 USING gv_tablname. gv_tablname = co_prefix && 'MOVIEST'. PERFORM fill_tabl_moviest_000 USING gv_tablname. PERFORM fill_tabl_moviest USING gv_tablname. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscar_000 USING fv_tablname TYPE ddobjname. DATA lt_osc_simp LIKE gt_osc_smpl. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. lv_d = '13.03.1947'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( mandt = '000' osc_year = '1946' osc_nr = 19 osc_date = lv_do osc_best_film = 'The Best Years of Our Lives' osc_best_film_comp = 5 osc_best_dir = 'William Wyler' osc_male_lead = 'Fredric March' osc_male_lead_comp = 3 osc_female_lead = 'Olivia de Havilland' osc_female_lead_comp = 5 osc_best_dir_movyr = '1946' osc_best_dir_mov = 'The Best Years of Our Lives' osc_male_lead_movyr = '1946' osc_male_lead_mov = 'The Best Years of Our Lives' osc_female_lead_movyr = '1946' osc_female_lead_mov = 'To Each His Own' ) ). lv_d = '20.03.1948'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( mandt = '000' osc_year = '1947' osc_nr = 20 osc_date = lv_do osc_best_film = 'Gentleman''s Agreement' osc_best_film_comp = 5 osc_best_dir = 'Elia Kazan' osc_best_dir_comp = 5 osc_male_lead = 'Ronald Colman' osc_male_lead_comp = 5 osc_female_lead = 'Loretta Young' osc_female_lead_comp = 5 osc_best_dir_movyr = '1947' osc_best_dir_mov = 'Gentleman''s Agreement' osc_male_lead_movyr = '1947' osc_male_lead_mov = 'A Double Life' osc_female_lead_movyr = '1947' osc_female_lead_mov = 'The Farmer''s Daughter' ) ). DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_osc_simp . WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscar USING fv_tablname TYPE ddobjname. DATA lt_osc_simp LIKE gt_osc_smpl. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. lv_d = '27.02.1935'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1934' osc_nr = 7 osc_date = lv_do osc_best_film = 'It Happened One Night' osc_best_film_comp = 12 osc_best_dir = 'Frank Capra' osc_best_dir_comp = 3 osc_best_dir_movyr = '1934' osc_best_dir_mov = 'It Happened One Night' osc_male_lead = 'Clark Gable' osc_male_lead_comp = 3 osc_male_lead_movyr = '1934' osc_male_lead_mov = 'It Happened One Night' osc_female_lead = 'Claudette Colbert' osc_female_lead_comp = 3 osc_female_lead_movyr = '1934' osc_female_lead_mov = 'It Happened One Night' ) ). lv_d = '05.03.1936'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1935' osc_nr = 8 osc_date = lv_do osc_best_film = 'Mutiny on the Bounty' osc_best_film_comp = 12 osc_best_dir = 'John Ford' osc_best_dir_comp = 4 osc_male_lead = 'Victor McLaglen' osc_male_lead_comp = 5 osc_female_lead = 'Bette Davis' osc_female_lead_comp = 6 osc_best_dir_movyr = '1935' osc_best_dir_mov = 'The Informer' osc_male_lead_movyr = '1935' osc_male_lead_mov = 'The Informer' osc_female_lead_movyr = '1935' osc_female_lead_mov = 'Dangerous' ) ). lv_d = '04.03.1937'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1936' osc_nr = 9 osc_date = lv_do osc_best_film = 'The Great Ziegfeld' osc_best_film_comp = 10 osc_best_dir = 'Frank Capra' osc_best_dir_comp = 5 osc_male_lead = 'Paul Muni' osc_male_lead_comp = 6 osc_female_lead = 'Luise Rainer' osc_female_lead_comp = 5 osc_best_dir_movyr = '1936' osc_best_dir_mov = 'Mr. Deeds Goes to Town' osc_male_lead_movyr = '1936' osc_male_lead_mov = 'The Story of Louis Pasteur' osc_female_lead_movyr = '1936' osc_female_lead_mov = 'The Great Ziegfeld' ) ). lv_d = '10.03.1938'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1937' osc_nr = 10 osc_date = lv_do osc_best_film = 'The Life of Emile Zola' osc_best_film_comp = 10 osc_best_dir = 'Leo McCarey' osc_best_dir_comp = 5 osc_male_lead = 'Spencer Tracy' osc_male_lead_comp = 5 osc_female_lead = 'Luise Rainer' osc_female_lead_comp = 5 osc_best_dir_movyr = '1937' osc_best_dir_mov = 'The Awful Truth' osc_male_lead_movyr = '1937' osc_male_lead_mov = 'Captains Courageous' osc_female_lead_movyr = '1937' osc_female_lead_mov = 'The Good Earth' ) ). lv_d = '23.02.1939'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1938' osc_nr = 11 osc_date = lv_do osc_best_film = 'You Can''t Take It with You' osc_best_film_comp = 10 osc_best_dir = 'Frank Capra' osc_best_dir_comp = 5 osc_male_lead = 'Spencer Tracy' osc_male_lead_comp = 5 osc_female_lead = 'Bette Davis' osc_female_lead_comp = 5 osc_best_dir_movyr = '1938' osc_best_dir_mov = 'You Can''t Take It with You' osc_male_lead_movyr = '1938' osc_male_lead_mov = 'Boys Town' osc_female_lead_movyr = '1938' osc_female_lead_mov = 'Jezebel' ) ). lv_d = '29.02.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1939' osc_nr = 12 osc_date = lv_do osc_best_film = 'Gone With the Wind' osc_best_film_comp = 10 osc_best_dir = 'Victor Fleming' osc_best_dir_comp = 5 osc_male_lead = 'Robert Donat' osc_male_lead_comp = 5 osc_female_lead = 'Vivien Leigh' osc_female_lead_comp = 5 osc_best_dir_movyr = '1939' osc_best_dir_mov = 'Gone With the Wind' osc_male_lead_movyr = '1939' osc_male_lead_mov = 'Goodbye, Mr. Chips ' osc_female_lead_movyr = '1939' osc_female_lead_mov = 'Gone With the Wind' ) ). lv_d = '27.02.1941'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1940' osc_nr = 13 osc_date = lv_do osc_best_film = 'Rebecca' osc_best_film_comp = 10 osc_best_dir = 'John Ford' osc_best_dir_comp = 5 osc_male_lead = 'James Stewart' osc_male_lead_comp = 5 osc_female_lead = 'Ginger Rogers' osc_female_lead_comp = 5 osc_best_dir_movyr = '1940' osc_best_dir_mov = 'The Grapes of Wrath' osc_male_lead_movyr = '1940' osc_male_lead_mov = 'The Philadelphia Story' osc_female_lead_movyr = '1940' osc_female_lead_mov = 'Kitty Foyle' ) ). lv_d = '26.02.1942'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1941' osc_nr = 14 osc_date = lv_do osc_best_film = 'How Green Was My Valley' osc_best_film_comp = 10 osc_best_dir = 'John Ford' osc_best_dir_comp = 5 osc_male_lead = 'Gary Cooper' osc_male_lead_comp = 5 osc_female_lead = 'Joan Fontaine' osc_female_lead_comp = 5 osc_best_dir_movyr = '1941' osc_best_dir_mov = 'How Green Was My Valley' osc_male_lead_movyr = '1941' osc_male_lead_mov = 'Sergeant York' osc_female_lead_movyr = '1941' osc_female_lead_mov = 'Suspicion' ) ). lv_d = '04.03.1943'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1942' osc_nr = 15 osc_date = lv_do osc_best_film = 'Mrs. Miniver' osc_best_film_comp = 10 osc_best_dir = 'William Wyler' osc_best_dir_comp = 5 osc_male_lead = 'James Cagney' osc_male_lead_comp = 5 osc_female_lead = 'Greer Garson' osc_female_lead_comp = 5 osc_best_dir_movyr = '1942' osc_best_dir_mov = 'Mrs. Miniver' osc_male_lead_movyr = '1942' osc_male_lead_mov = 'Yankee Doodle Dandy' osc_female_lead_movyr = '1942' osc_female_lead_mov = 'Mrs. Miniver' ) ). lv_d = '19.03.1944'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1943' osc_nr = 16 osc_date = lv_do osc_best_film = 'Casablanca' osc_best_film_comp = 10 osc_best_dir = 'Michael Curtiz' osc_best_dir_comp = 5 osc_male_lead = 'Paul Lukas' osc_male_lead_comp = 5 osc_female_lead = 'Jennifer Jones' osc_female_lead_comp = 5 osc_best_dir_movyr = '1942' osc_best_dir_mov = 'Casablanca' osc_male_lead_movyr = '1943' osc_male_lead_mov = 'Watch on the Rhine' osc_female_lead_movyr = '1943' osc_female_lead_mov = 'The Song of Bernadette' ) ). lv_d = '15.03.1945'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1944' osc_nr = 17 osc_date = lv_do osc_best_film = 'Going My Way' osc_best_film_comp = 10 osc_best_dir = 'Leo McCarey' osc_best_dir_comp = 5 osc_male_lead = 'Bing Crosby' osc_male_lead_comp = 5 osc_female_lead = 'Ingrid Bergman' osc_female_lead_comp = 5 osc_best_dir_movyr = '1944' osc_best_dir_mov = 'Going My Way' osc_male_lead_movyr = '1944' osc_male_lead_mov = 'Going My Way' osc_female_lead_movyr = '1944' osc_female_lead_mov = 'Gaslight' ) ). lv_d = '07.03.1946'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_osc_simp = VALUE #( BASE lt_osc_simp ( osc_year = '1945' osc_nr = 18 osc_date = lv_do osc_best_film = 'The Lost Weekend' osc_best_film_comp = 10 osc_best_dir = 'Billy Wilder' osc_best_dir_comp = 5 osc_male_lead = 'Ray Milland' osc_male_lead_comp = 5 osc_female_lead = 'Joan Crawford' osc_female_lead_comp = 5 osc_best_dir_movyr = '1945' osc_best_dir_mov = 'The Lost Weekend' osc_male_lead_movyr = '1945' osc_male_lead_mov = 'The Lost Weekend' osc_female_lead_movyr = '1945' osc_female_lead_mov = 'Mildred Pierce' ) ). DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE : rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_osc_simp. WRITE / |{ fv_tablname } - INSERT INTO TABLE : rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscarsong USING fv_tablname TYPE ddobjname. DATA lt_osc_smpl_song LIKE gt_osc_smpl_song. DATA ls_osc_smpl_song LIKE LINE OF lt_osc_smpl_song. lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1934' sng_status = 'W' sng_name = 'The Continental' sng_artist = 'Ginger Rogers' sng_movie_year = '1934' sng_movie = 'The Gay Divorcee' ) ( osc_year = '1934' sng_status = 'N' sng_name = 'Carioca' sng_artist = 'Alice Gentle & Movita Castaneda & Etta Moten' sng_movie_year = '1934' sng_movie = 'Flying Down to Rio' ) ( osc_year = '1934' sng_status = 'N' sng_name = 'Love in Bloom' sng_artist = 'Bing Crosby & Kitty Carlisle' sng_movie_year = '1934' sng_movie = 'She Loves Me Not' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1935' sng_status = 'W' sng_name = 'Lullaby of Broadway' sng_artist = 'Wini Shaw' sng_movie_year = '1935' sng_movie = 'Gold Diggers of 1935' ) ( osc_year = '1935' sng_status = 'N' sng_name = 'Lovely to Look At' sng_artist = 'Irene Dunne' sng_movie_year = '1935' sng_movie = 'Roberta' ) ( osc_year = '1935' sng_status = 'N' sng_name = 'Cheek to Cheek' sng_artist = 'Fred Astaire' sng_movie_year = '1935' sng_movie = 'Top Hat' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1936' sng_status = 'W' sng_name = 'The Way You Look Tonight' sng_artist = 'Fred Astaire' sng_movie_year = '1936' sng_movie = 'Swing Time' ) ( osc_year = '1936' sng_status = 'N' sng_name = 'I''ve Got You Under My Skin' sng_artist = 'Virginia Bruce' sng_movie_year = '1936' sng_movie = 'Born to Dance' ) ( osc_year = '1936' sng_status = 'N' sng_name = 'Pennies from Heaven' sng_artist = 'Bing Crosby' sng_movie_year = '1936' sng_movie = 'Pennies from Heaven' ) ( osc_year = '1936' sng_status = 'N' sng_name = 'When Did You Leave Heaven' sng_artist = 'Tony Martin' sng_movie_year = '1936' sng_movie = 'Sing, Baby, Sing' ) ( osc_year = '1936' sng_status = 'N' sng_name = 'Did I Remember' sng_artist = 'Jean Harlow & Cary Grant' sng_movie_year = '1936' sng_movie = 'Suzy' ) ( osc_year = '1936' sng_status = 'N' sng_name = 'A Melody from the Sky' sng_artist = 'Fuzzy Knight & Henry Fonda' sng_movie_year = '1936' sng_movie = 'The Trail of the Lonesome Pine' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1937' sng_status = 'W' sng_name = 'Sweet Leilani' sng_artist = 'Bing Crosby' sng_movie_year = '1937' sng_movie = 'Waikiki Wedding' ) ( osc_year = '1937' sng_status = 'N' sng_name = 'Whispers in the Dark' sng_artist = 'Connie Boswell (o Andre Kostelanetz)' sng_movie_year = '1937' sng_movie = 'Artists and Models' ) ( osc_year = '1937' sng_status = 'N' sng_name = 'Remember Me' sng_artist = 'Kenny Baker' sng_movie_year = '1937' sng_movie = 'Mr. Dodd Takes the Air' ) ( osc_year = '1937' sng_status = 'N' sng_name = 'They Can''t Take That Away from Me' sng_artist = 'Fred Astaire' sng_movie_year = '1937' sng_movie = 'Shall We Dance' ) ( osc_year = '1937' sng_status = 'N' sng_name = 'That Old Feeling' sng_artist = 'Virginia Verrill' sng_movie_year = '1937' sng_movie = 'Vogues of 1938' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1938' sng_status = 'W' sng_name = 'Thanks for the Memory' sng_artist = 'Bob Hope & Shirley Ross' sng_movie_year = '1938' sng_movie = 'The Big Broadcast of 1938' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Always and Always' sng_artist = 'Joan Crawford' sng_movie_year = '1938' sng_movie = 'Mannequin' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Change Partners' sng_artist = 'Fred Astaire' sng_movie_year = '1938' sng_movie = 'Carefree' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'The Cowboy and the Lady' sng_artist = 'Gary Cooper & Merle Oberon & Cast' sng_movie_year = '1938' sng_movie = 'The Cowboy and the Lady' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Dust' sng_artist = 'Roy Rogers' sng_movie_year = '1938' sng_movie = 'Under Western Stars' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Jeepers Creepers' sng_artist = 'Louis Armstrong' sng_movie_year = '1938' sng_movie = 'Going Places' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Merrily We Live' sng_artist = 'MGM Chorus' sng_movie_year = '1938' sng_movie = 'Merrily We Live' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'A Mist over the Moon' sng_artist = 'Lanny Ross' sng_movie_year = '1938' sng_movie = 'The Lady Objects' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'My Own' sng_artist = 'Deanna Durbin' sng_movie_year = '1938' sng_movie = 'That Certain Age' ) ( osc_year = '1938' sng_status = 'N' sng_name = 'Now It Can Be Told' sng_artist = 'Alice Faye' sng_movie_year = '1938' sng_movie = 'Alexander''s Ragtime Band' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1939' sng_status = 'W' sng_name = 'Over the Rainbow' sng_artist = 'Judy Garland' sng_movie_year = '1939' sng_movie = 'The Wizard of Oz' ) ( osc_year = '1939' sng_status = 'N' sng_name = 'Faithful Forever' sng_artist = 'Jessica Dragonette & Lanny Ross' sng_movie_year = '1939' sng_movie = 'Gulliver''s Travels' ) ( osc_year = '1939' sng_status = 'N' sng_name = 'I Poured My Heart into a Song' sng_artist = 'Rudy Vallee' sng_movie_year = '1939' sng_movie = 'Second Fiddle' ) ( osc_year = '1939' sng_status = 'N' sng_name = 'Wishing' sng_artist = 'Robert Mitchell Boy Choir' sng_movie_year = '1939' sng_movie = 'Love Affair' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1940' sng_status = 'W' sng_name = 'When You Wish Upon a Star' sng_artist = 'Cliff Edwards' sng_movie_year = '1940' sng_movie = 'Pinocchio' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Down Argentine Way' sng_artist = 'Don Ameche & Betty Grable' sng_movie_year = '1940' sng_movie = 'Down Argentine Way' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'I''d Know You Anywhere' sng_artist = 'Ginny Simms' sng_movie_year = '1940' sng_movie = 'You''ll Find Out' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'It''s a Blue World' sng_artist = 'Tony Martin' sng_movie_year = '1940' sng_movie = 'Music in My Heart' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Love of My Life' sng_artist = 'Fred Astaire' sng_movie_year = '1940' sng_movie = 'Second Chorus' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Only Forever' sng_artist = 'Bing Crosby & Mary Martin' sng_movie_year = '1940' sng_movie = 'Rhythm on the River' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Our Love Affair' sng_artist = 'Judy Garland & Mickey Rooney' sng_movie_year = '1940' sng_movie = 'Strike Up the Band' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Waltzing in the Clouds' sng_artist = 'Deanna Durbin' sng_movie_year = '1940' sng_movie = 'Spring Parade' ) ( osc_year = '1940' sng_status = 'N' sng_name = 'Who Am I?' sng_artist = 'Frances Langford & Kenny Baker' sng_movie_year = '1940' sng_movie = 'Hit Parade of 1941' ) ). lt_osc_smpl_song = VALUE #( BASE lt_osc_smpl_song ( osc_year = '1941' sng_status = 'W' sng_name = 'The Last Time I Saw Paris' sng_artist = 'Ann Sothern' sng_movie_year = '1941' sng_movie = 'Lady Be Good' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Baby Mine' sng_artist = 'Betty Noyes' sng_movie_year = '1941' sng_movie = 'Dumbo' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Be Honest With Me' sng_artist = 'Gene Autry' sng_movie_year = '1941' sng_movie = 'Ridin'' on a Rainbow' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Blues in the Night' sng_artist = 'William Gillespie' sng_movie_year = '1941' sng_movie = 'Blues in the Night' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Boogie Woogie Bugle Boy of Company B' sng_artist = 'The Andrews Sisters' sng_movie_year = '1941' sng_movie = 'Buck Privates' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Chattanooga Choo Choo' sng_artist = 'Glenn Miller & His Orchestra' sng_movie_year = '1941' sng_movie = 'Sun Valley Serenade' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Dolores' sng_artist = 'Tommy Dorsey & His Orchstra (v Bert Wheeler)' sng_movie_year = '1941' sng_movie = 'Las Vegas Nights' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Out of the Silence' sng_artist = 'Frances Langford' sng_movie_year = '1941' sng_movie = 'All-American Co-Ed' ) ( osc_year = '1941' sng_status = 'N' sng_name = 'Since I Kissed My Baby Goodbye' sng_artist = 'The Four Tones & Fred Astaire' sng_movie_year = '1941' sng_movie = 'You''ll Never Get Rich' ) ). "Ausnutzen des Macros. song 1942 'W' 'White Christmas' 'Bing Crosby & Marjorie Reynolds' 1942 'Holiday Inn'. song 1942 'N' 'Always in My Heart' 'Gloria Warren' 1942 'Always in My Heart'. song 1942 'N' 'Dearly Beloved' 'Fred Astaire & Rita Hayworth' 1942 'You Were Never Lovelier'. song 1942 'N' 'How About You?' 'Judy Garland & Mickey Rooney' 1942 'Babes on Broadway'. song 1942 'N' 'I''ve Heard That Song Before' 'Martha O''Driscoll' 1942 'Youth on Parade'. song 1942 'N' '(I''ve Got a Gal in) Kalamazoo' 'Glenn Miller & His Orchestra' 1942 'Orchestra Wives'. song 1942 'N' 'Love Is a Song' 'Donald Novis' 1942 'Bambi'. song 1942 'N' 'Pennies for Peppino' 'MGM-Chorus' 1942 'Flying with Music'. song 1942 'N' 'Pig Foot Pete' 'Martha Raye' 1942 'Hellzapoppin'' [Keep ''em Flying]'. song 1942 'N' 'When There''s a Breeze on Lake Louise' 'Anne Shirley' 1942 'The Mayor of 44th Street'. song 1943 'W' 'You''ll Never Know' 'Alice Faye' 1943 'Hello, Frisco, Hello'. song 1943 'N' 'Change of Heart' 'John Carroll & Susan Hayward' 1943 'Hit Parade of 1943'. song 1943 'N' 'Happiness is a Thing Called Joe' 'Ethel Waters' 1943 'Cabin in the Sky'. song 1943 'N' 'My Shining Hour' 'Joan Leslie' 1943 'The Sky''s the Limit'. song 1943 'N' 'Saludos Amigos' 'Walt Disney Chorus' 1943 'Saludos Amigos'. song 1943 'N' 'Say a Prayer for the Boys Over There' 'Deanna Durbin' 1943 'Hers to Hold'. song 1943 'N' 'That Old Black Magic' 'Johnny Johnston' 1943 'Star Spangled Rhythm'. song 1943 'N' 'They''re Either Too Young or Too Old' 'Bette Davis' 1943 'Thank Your Lucky Stars'. song 1943 'N' 'We Mustn''t Say Good Bye' 'Lanny Ross' 1943 'Stage Door Canteen'. song 1943 'N' 'You''d Be So Nice to Come Home To' 'Janet Blair & Don Ameche' 1943 'Something to Shout About'. song 1944 'W' 'Swinging on a Star' 'Bing Crosby' 1944 'Going My Way'. song 1944 'N' 'I Couldn''t Sleep a Wink Last Night' 'Frank Sinatra' 1944 'Higher and Higher'. song 1944 'N' 'I''ll Walk Alone' 'Dinah Shore' 1944 'Follow the Boys'. song 1944 'N' 'I''m Making Believe' 'Benny Goodman & His Orchestra (v Lynn Bari)' 1944 'Sweet and Low-Down'. song 1944 'N' 'Long Ago (and Far Away)' 'Rita Hayworth & Gene Kelly' 1944 'Cover Girl'. song 1944 'N' 'Now I Know' 'Dinah Shore' 1944 'Up in Arms'. song 1944 'N' 'Remember Me to Carolina' 'Benny Fields' 1944 'Minstrel Man'. song 1944 'N' 'Rio de Janeiro' 'Tito Guizar' 1944 'Brazil'. song 1944 'N' 'Silver Shadows and Golden Dreams' 'Mitch Ayres & His Band (v Johnny Bond)' 1944 'Lady, Let''s Dance'. song 1944 'N' 'Too Much in Love' 'Jackie Moran' 1944 'Song of the Open Road'. song 1944 'N' 'The Trolley Song' 'Judy Garland' 1944 'Meet Me in St. Louis'. song 1945 'W' 'It Might as Well Be Spring' 'Jeanne Crain' 1945 'State Fair'. song 1945 'N' 'Ac-Cent-Tchu-Ate the Positive' 'Bing Crosby' 1945 'Here Come the Waves'. song 1945 'N' 'Anywhere' 'Janet Blair' 1945 'Tonight and Every Night'. song 1945 'N' 'Aren''t You Glad You''re You?' 'Bing Crosby' 1945 'The Bells of St. Mary''s'. song 1945 'N' 'The Cat and the Canary' 'Pamela Blake' 1945 'Why Girls Leave Home'. song 1945 'N' 'Endlessly' 'Constance Moore' 1945 'Earl Carroll Vanities'. song 1945 'N' 'I Fall in Love Too Easily' 'Frank Sinatra' 1945 'Anchors Aweigh'. song 1945 'N' 'I''ll Buy That Dream' 'Anne Jeffreys' 1945 'Sing Your Way Home'. song 1945 'N' 'Linda' 'Pat Friday' 1945 'The Story of G.I. Joe'. song 1945 'N' 'Love Letters' 'Victor Young & His Concert Orchestra' 1945 'Love Letters'. song 1945 'N' 'More and More' 'Deanna Durbin' 1945 'Can''t Help Singing'. song 1945 'N' 'Sleighride in July' 'Dinah Shore' 1945 'Belle of the Yukon'. song 1945 'N' 'So in Love' 'Vera-Ellen' 1945 'Wonder Man'. song 1945 'N' 'Some Sunday Morning' 'Alexis Smith' 1945 'San Antonio'. DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE : rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_osc_smpl_song. WRITE / |{ fv_tablname } - INSERT INTO TABLE : rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscarsong_000 USING fv_tablname TYPE ddobjname. DATA lt_osc_smpl_song LIKE gt_osc_smpl_song. DATA ls_osc_smpl_song LIKE LINE OF lt_osc_smpl_song. lt_osc_smpl_song = VALUE #( BASE gt_osc_smpl_song ( mandt = '000' osc_year = '1946' sng_status = 'W' sng_name = 'On the Atchison, Topeka and the Santa Fe' sng_artist = 'Judy Garland' sng_movie_year = '1946' sng_movie = 'The Harvey Girls' ) ( mandt = '000' osc_year = '1946' sng_status = 'N' sng_name = 'All Through the Day' sng_artist = 'Larry Stevens' sng_movie_year = '1946' sng_movie = 'Centennial Summer' ) ( mandt = '000' osc_year = '1946' sng_status = 'N' sng_name = 'I Can''t Begin to Tell You' sng_artist = 'John Payne' sng_movie_year = '1946' sng_movie = 'The Dolly Sisters' ) ( mandt = '000' osc_year = '1946' sng_status = 'N' sng_name = 'Ole Buttermilk Sky' sng_artist = 'Hoagy Carmichael' sng_movie_year = '1946' sng_movie = 'Canyon Passage' ) ( mandt = '000' osc_year = '1946' sng_status = 'N' sng_name = 'You Keep Coming Back Like a Song' sng_artist = 'Bing Crosby' sng_movie_year = '1946' sng_movie = 'Blue Skies' ) ). "Ausnutzen des Macros. song000 1947 'W' 'Zip-a-Dee-Doo-Dah' 'James Baskett' 1947 'Song of the South'. song000 1947 'N' 'A Gal in Calico' 'Dennis Morgan & Jack Carson & Martha Vickers' 1947 'The Time, the Place and the Girl'. song000 1947 'N' 'I Wish I Didn''t Love You So' 'Betty Hutton' 1947 'The Perils of Pauline'. song000 1947 'N' 'Pass That Peace Pipe' 'Joan McCracken & Chorus' 1947 'Good News'. song000 1947 'N' 'You Do' 'Mona Freeman' 1947 'Mother Wore Tights'. DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_osc_smpl_song. WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_distributor USING fv_tablname TYPE ddobjname. DATA lt_distributor LIKE gt_distributor. DATA ls_distributor LIKE LINE OF lt_distributor. lt_distributor = VALUE #( BASE lt_distributor ( dtr_id = 'MGM ' dtr_year_beg = '1924' dtr_year_end = ' ' dtr_name = 'Metro-Goldwyn-Meyer' ) ( dtr_id = 'RKO ' dtr_year_beg = '1928' dtr_year_end = '1959' dtr_name = 'RKO Pictures' ) ( dtr_id = 'PAR ' dtr_year_beg = '1912' dtr_year_end = ' ' dtr_name = 'Paramount Pictures' ) ( dtr_id = '20CF' dtr_year_beg = '1935' dtr_year_end = ' ' dtr_name = 'Twentieth Century Fox Film Corporation' ) ( dtr_id = 'UNI ' dtr_year_beg = '1912' dtr_year_end = ' ' dtr_name = 'Universal Pictures' ) ( dtr_id = 'COL ' dtr_year_beg = '1924' dtr_year_end = ' ' dtr_name = 'Columbia Pictures' ) ( dtr_id = 'WB ' dtr_year_beg = '1923' dtr_year_end = ' ' dtr_name = 'Warner Bros. Entertainment Inc.' ) ( dtr_id = 'UA ' dtr_year_beg = '1919' dtr_year_end = ' ' dtr_name = 'United Artists Corporation' ) ( dtr_id = 'IND ' dtr_year_beg = ' ' dtr_year_end = ' ' dtr_name = 'Independent Distributor' ) ). DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_distributor. WRITE / |{ fv_tablname } - INSERT INTO TABLE: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_person USING fv_tablname TYPE ddobjname. DATA lt_person LIKE gt_person. DATA ls_person LIKE LINE OF lt_person. DEFINE person_art. ls_person-pers_fullname = &4. ls_person-pers_fullnameinv = &1. ls_person-pers_firstname = &3. ls_person-pers_lastname = &2. ls_person-pers_birthname = &5. ls_person-pers_birthdate = &6. ls_person-pers_birthplace = &7. ls_person-pers_deathdate = &8. ls_person-pers_deathplace = &9. ls_person-pers_flg_art = abap_true. ls_person-pers_flg_dir = abap_false. APPEND ls_person TO lt_person. END-OF-DEFINITION. DEFINE person_reg. ls_person-pers_fullname = &4. ls_person-pers_fullnameinv = &1. ls_person-pers_firstname = &3. ls_person-pers_lastname = &2. ls_person-pers_birthname = &5. ls_person-pers_birthdate = &6. ls_person-pers_birthplace = &7. ls_person-pers_deathdate = &8. ls_person-pers_deathplace = &9. ls_person-pers_flg_art = abap_false. ls_person-pers_flg_dir = abap_true. APPEND ls_person TO lt_person. END-OF-DEFINITION. person_art 'Merman, Ethel' 'Merman' 'Ethel' 'Ethel Merman' 'Ethel Agnes Zimmermann' '19080116' 'New York City, U.S.' '19840215' 'New York City, U.S.'. person_art 'Francis, Kay' 'Francis' 'Kay' 'Kay Francis' 'Katherine Edwina Gibbs' '19050113' 'Oklahoma City, Oklahoma Territory, U.S.' '19680826' 'New York City, U.S.'. person_art 'Day, Doris' 'Day' 'Doris' 'Doris Day' 'Doris Mary Kappelhoff' '19220403' 'Cincinnati, Ohio, U.S.' '20190513' 'Carmel Valley Vilage, California, U.S.'. person_art 'Durbin, Deanna' 'Durbin' 'Deanna' 'Deanna Durbin' 'Edna Mae Durbin' '19211204' 'Winnipeg, Manitoba, Canada' '20130417' 'Neauphle-le-Château, France'. person_art 'Garland, Judy' 'Garland' 'Judy' 'Judy Garland' 'Frances Ethel Gumm' '19220610' 'Grand Rapids, Minnesota, U.S.' '19690622' 'Belgravia, London, England'. person_art 'Arthur, Jean' 'Arthur' 'Jean' 'Jean Arthur' 'Gladys Georgianna Greene' '19001017' 'Plattsburgh, New York, U.S.' '19910619' 'Carmel, California, U.S.'. person_art 'Stanwyck, Barbara' 'Stanwyck' 'Barbara' 'Barbara Stanwyck' 'Ruby Catherine Stevens' '19070716' 'Brooklyn, New York City, U.S.' '19900120' 'Santa Monica, California, U.S.'. person_art 'Powell, Eleanor' 'Powell' 'Eleanor' 'Eleanor Powell' 'Eleanor Torrey Powell' '19121121' 'Springfield, Massachusetts, U.S.' '19820211' 'Beverly Hills, California, U.S.'. person_art 'Williams, Esther' 'Williams' 'Esther' 'Esther Williams' 'Esther Jane Williams' '19210808' 'Inglewood, California, U.S.' '20130606' 'Beverly Hills, California, U.S.'. person_art 'Faye, Alice' 'Faye' 'Alice' 'Alice Faye' 'Alice Jeane Leppert' '19150505' 'Manhattan, New York City,U.S.' '19980509' 'Rancho Mirage, California, U.S.'. person_art 'Haver, June' 'Haver' 'June' 'June Haver' 'June Stovenour' '19260610' 'Rock Island, Illinois, U.S.' '20050704' 'Brentwood, California, U.S.'. person_art 'Rogers, Ginger' 'Rogers' 'Ginger' 'Ginger Rogers' 'Virginia Katherine McMath' '19110716' 'Independence, Missouri, U.S.' '19950425' 'Rancho Mirage, California, U.S.'. person_art 'Russell, Rosalind' 'Russell' 'Rosalind' 'Rosalind Russell' 'Catherine Rosalind Russell' '19070604' 'Waterbury, Connecticut, U.S.' '19761128' 'Beverly Hills, California, U.S.'. person_art 'Lombard, Carole' 'Lombard' 'Carole' 'Carole Lombard' 'Jane Alice Peters' '19081006' 'Fort Wayne, Indiana, U.S.' '19420116' 'Mount Potosi, Nevada, U.S.'. person_art 'Blondell, Joan' 'Blondell' 'Joan' 'Joan Blondell' 'Rose Joan Blondell' '19060830' 'Manhattan, New York City, U.S.' '19791225' 'Santa Monica, California, U.S.'. person_art 'Keeler, Ruby' 'Keeler' 'Ruby' 'Ruby Keeler' 'Ethel Ruby Keeler' '19090825' 'Dartmouth, Nova Scotia, Canada' '19930228' 'Rancho Mirage, California, U.S.'. person_art 'Clooney, Rosemary' 'Clooney' 'Rosemary' 'Rosemary Clooney' '' '19280523' 'Maysville, Kentucky, U.S.' '20020629' 'Beverly Hills, California, U.S.'. person_art 'Garrett, Betty' 'Garrett' 'Betty' 'Betty Garrett' 'Elizabeth Garrett' '19190523' 'St. Joseph, Missouri, U.S.' '20110212' 'Los Angeles, California, U.S.'. person_art 'Allyson, June' 'Allyson' 'June' 'June Allyson' 'Eleanor Geisman' '19171007' 'The Bronx, New York, U.S.' '20060708' 'Ojai, California, U.S.'. person_art 'Sullavan, Margaret' 'Sullavan' 'Margaret' 'Margaret Sullavan' 'Margaret Brooke Sullavan' '19090516' 'Norfolk, Virginia, U.S.' '19600101' 'New Haven, Connecticut, U.S.'. person_art 'Charisse, Cyd' 'Charisse' 'Cyd' 'Cyd Charisse' 'Tula Ellice Finklea' '19220308' 'Amarillo, Texas, U.S.' '20080617' 'Los Angeles, California, U.S.'. person_art 'MacDonald, Jeanette' 'MacDonald' 'Jeanette' 'Jeanette MacDonald' 'Jeanette Anna MacDonald' '19030618' 'Philadelphia, Pennsylvania, U.S.' '19650114' 'Houston, Texas, U.S.'. person_art 'Davis, Bette' 'Davis' 'Bette' 'Bette Davis' 'Ruth Elizabeth Davis' '19080405' 'Lowell, Massachusetts, U.S.' '19891006' 'Neuilly-sur-Seine, France'. person_art 'Miller, Ann' 'Miller' 'Ann' 'Ann Miller' 'Johnnie Lucille Collier' '19230412' 'Houston, Texas, U.S.' '20040122' 'Los Angeles, California, U.S.'. person_art 'Young, Loretta' 'Young' 'Loretta' 'Loretta Young' 'Gretchen Young' '19130106' 'Salt Lake City, Utah, U.S.' '20000812' 'Los Angeles, California, U.S.'. person_art 'Russell, Jane' 'Russell' 'Jane' 'Jane Russell' 'Ernestine Jane Geraldine Russell' '19210621' 'Bemidji, Minnesota, U.S.' '20110228' 'Santa Maria, California, U.S.'. person_art 'Martin, Mary' 'Martin' 'Mary' 'Mary Martin' 'Mary Virginia Martin' '19131201' 'Weatherford, Texas, U.S.' '19901103' 'Rancho Mirage, California U.S.'. person_art 'Colbert, Claudette' 'Colbert' 'Claudette' 'Claudette Colbert' 'Émilie Claudette Chauchoin' '19030913' 'Saint-Mandé, France' '19960730' 'Speightstown, Barbados'. person_art 'Tierney, Gene' 'Tierney' 'Gene' 'Gene Tierney' 'Gene Eliza Tierney' '19201119' 'Brooklyn, New York, U.S.' '19911106' 'Houston, Texas, U.S.'. person_art 'Sidney, Sylvia' 'Sidney' 'Sylvia' 'Sylvia Sidney' 'Sophia Kosow' '19100808' 'The Bronx, New York City, U.S.' '19990701' 'New York City, U.S.'. person_art 'Langford, Frances' 'Langford' 'Frances' 'Frances Langford' '' '19130404' 'Lakeland, Florida, U.S.' '20050711' 'Jensen Beach, Florida, U.S.'. person_art 'Dietrich, Marlene' 'Dietrich' 'Marlene' 'Marlene Dietrich' 'Marie Magdalene Dietrich' '19011227' 'Berlin, German Empire' '19920506' 'Paris, France'. person_art 'O''Brien, Virginia' 'O''Brien' 'Virginia' 'Virginia O''Brien' 'Virginia Lee O''Brien' '19190418' 'Los Angeles, California, U.S.' '20010116' 'Woodland Hills, California, U.S.'. person_art 'Raye, Martha' 'Raye' 'Martha' 'Martha Raye' 'Margy Reed' '19160827' 'Butte, Montana, U.S.' '19941019' 'Los Angeles, California, U.S.'. person_art 'Shearer, Norma' 'Shearer' 'Norma' 'Norma Shearer' 'Edith Norma Shearer' '19020811' 'Montreal, Quebec, Canada' '19830612' 'Woodland Hills, California, U.S.'. person_art 'Reynolds, Debbie' 'Reynolds' 'Debbie' 'Debbie Reynolds' 'Mary Frances Reynolds' '19320401' 'El Paso, Texas, U.S.' '20161228' 'Los Angeles, California, U.S.'. person_art 'North, Sheree' 'North' 'Sheree' 'Sheree North' 'Dawn Shirley Crang' '19320117' 'Los Angeles, California, U.S.' '20051104' 'Los Angeles, California, U.S.'. person_art 'Sothern, Ann' 'Sothern' 'Ann' 'Ann Sothern' 'Harriette Arlene Lake' '19090122' 'Valley City, North Dakota, U.S.' '20010315' 'Ketchum, Idaho, U.S.'. person_art 'Davies, Marion' 'Davies' 'Marion' 'Marion Davies' 'Marion Cecilia Douras' '18970103' 'Brooklyn, New York, U.S.' '19610922' 'Hollywood, California, U.S.'. person_art 'Leslie, Joan' 'Leslie' 'Joan' 'Joan Leslie' 'Joan Agnes Theresa Sadie Brodel' '19250126' 'Detroit, Michigan, U.S.' '20151012' 'Los Angeles, California, U.S.'. person_art 'Horne, Lena' 'Horne' 'Lena' 'Lena Horne' 'Lena Mary Calhoun Horne' '19170630' 'Brooklyn, New York, U.S.' '20100509' 'Manhattan, New York, U.S.'. person_art 'DeHaven, Gloria' 'DeHaven' 'Gloria' 'Gloria DeHaven' 'Gloria Mildred DeHaven' '19250723' 'Los Angeles, California, U.S.' '20160730' 'Las Vegas, Nevada, U.S.'. person_art 'Hepburn, Katharine' 'Hepburn' 'Katharine' 'Katharine Hepburn' 'Katharine Houghton Hepburn' '19070512' 'Hartford, Connecticut, U.S.' '20030629' 'Fenwick, Connecticut, U.S.'. person_art 'Loy, Myrna' 'Loy' 'Myrna' 'Myrna Loy' 'Myrna Adele Williams' '19050802' 'Helena, Montana, U.S.' '19931214' 'New York City, U.S.'. person_art 'Monroe, Marilyn' 'Monroe' 'Marilyn' 'Marilyn Monroe' 'Norma Jeane Mortenson' '19260601' 'Los Angeles, California, U.S.' '19620805' 'Los Angeles, California, U.S.'. person_art 'Lamarr, Hedy' 'Lamarr' 'Hedy' 'Hedy Lamarr' 'Hedwig Eva Maria Kiesler' '19141109' 'Vienna, Austria-Hungary' '20000119' 'Casselberry, Florida, U.S.'. person_art 'Henie, Sonja' 'Henie' 'Sonja' 'Sonja Henie' '' '19120408' 'Oslo, Norway' '19691012' 'during a flight from Paris to Oslo (leukemia)'. person_art 'Broderick, Helen' 'Broderick' 'Helen' 'Helen Broderick' '' '18910811' 'Philadelphia, Pennsylvania, U.S.' '19590925' 'Beverly Hills, California, U.S.'. person_art 'Garson, Greer' 'Garson' 'Greer' 'Greer Garson' 'Eileen Evelyn Greer Garson' '19040929' 'Manor Park, Essex, England' '19960406' 'Dallas, Texas, U.S.'. person_art 'Powell, Jane' 'Powell' 'Jane' 'Jane Powell' 'Suzanne Lorraine Burce' '19290401' 'Portland, Oregon, U.S.' '' ''. person_art 'Grable, Betty' 'Grable' 'Betty' 'Betty Grable' 'Elizabeth Ruth Grable' '19161218' 'St. Louis, Missouri, U.S.' '19730702' 'Los Angeles, California, U.S.'. person_art 'Kelly, Patsy' 'Kelly' 'Patsy' 'Patsy Kelly' 'Sarah Veronica Rose Kelly' '19100112' 'Brooklyn, New York, U.S.' '19810924' 'Woodland Hills, California, U.S.'. person_art 'Allen, Gracie' 'Allen' 'Gracie' 'Gracie Allen' 'Grace Ethel Cecile Rosalie Allen' '18950726' 'San Francisco, California, U.S.' '19640827' 'Los Angeles, California, U.S.'. person_art 'Oliver, Edna May' 'Oliver' 'Edna May' 'Edna May Oliver' 'Edna May Nutter' '18831109' 'Malden, Massachusetts, U.S.' '19421109' 'Malibu, California, U.S.'. person_art 'Vera-Ellen' '' 'Vera-Ellen' 'Vera-Ellen' 'Vera-Ellen Westmeier Rohe' '19210216' 'Norwood, Ohio, U.S.' '19810830' 'Los Angeles, California, U.S.'. person_art 'Crawford, Joan' 'Crawford' 'Joan' 'Joan Crawford' 'Lucille Fay LeSueur' '19040323' 'San Antonio, Texas, U.S.' '19770510' 'Manhattan, New York, U.S.'. person_reg 'Capra, Frank ' 'Capra' 'Frank ' 'Frank Capra' 'Francesco Rosario Capra ' '18970518' 'Bisacquino, Italy' '19910903' 'La Quinta, California, U.S.'. person_reg 'Ford, John ' 'Ford' 'John ' 'John Ford' 'John Martin Feeney ' '18940201' 'Cape Elizabeth, Maine, U.S.' '19730831' 'Palm Desert, California, U.S.'. person_reg 'McCarey, Leo ' 'McCarey' 'Leo ' 'Leo McCarey' 'Thomas Leo McCarey' '18981003' 'Los Angeles, California, U.S.' '19690705' 'Santa Maria, California, U.S.'. person_reg 'Fleming, Victor ' 'Fleming' 'Victor ' 'Victor Fleming' 'Victor Lonzo Fleming ' '18890223' 'La Cañada Flintridge, California, U.S.' '19490106' 'Cottonwood, Arizona, U.S.'. person_reg 'Wyler, William ' 'Wyler' 'William ' 'William Wyler' 'Willi Wyler ' '19020701' 'Mülhausen, Alsace-Lorraine, German Empire' '19810727' 'Beverly Hills, California, U.S.'. person_reg 'Curtiz, Michael ' 'Curtiz' 'Michael ' 'Michael Curtiz' 'Manó Kaminer ' '18861224' 'Budapest, Austria-Hungary' '19620411' 'Hollywood, California, U.S.'. person_reg 'Wilder, Billy ' 'Wilder' 'Billy ' 'Billy Wilder' 'Samuel Wilder' '19060622' 'Sucha, Austria-Hungary' '20020327' 'Beverly Hills, California, U.S.'. person_art 'Gable, Clark ' 'Gable' 'Clark ' 'Clark Gable' 'William Clark Gable' '19010201' 'Cadiz, Ohio, U.S.' '19601116' 'Los Angeles, California, U.S.'. person_art 'McLaglen, Victor ' 'McLaglen' 'Victor ' 'Victor McLaglen' 'Victor Andrew de Bier Everleigh McLaglen' '18861210' 'Stepney, East London, England' '19591107' 'Newport Beach, California, U.S.'. person_art 'Muni, Paul ' 'Muni' 'Paul ' 'Paul Muni' 'Frederich Meshilem Meier Weisenfreund ' '18951022' 'Lemberg, Austria-Hungary' '19670825' 'Montecito, California, U.S.'. person_art 'Tracy, Spencer ' 'Tracy' 'Spencer ' 'Spencer Tracy' 'Spencer Bonaventure Tracy ' '19000405' 'Milwaukee, Wisconsin, U.S.' '19670610' 'Beverly Hills, California, U.S.'. person_art 'Donat, Robert ' 'Donat' 'Robert ' 'Robert Donat' 'Friedrich Robert Donat' '19050318' 'Withington, Lancashire, England' '19580609' 'London, England'. person_art 'Stewart, James ' 'Stewart' 'James ' 'James Stewart' 'James Maitland Stewart ' '19080520' 'Indiana, Pennsylvania, U.S.' '19970702' 'Beverly Hills, California, U.S.'. person_art 'Cooper, Gary ' 'Cooper' 'Gary ' 'Gary Cooper' 'Frank James Cooper' '19010507' 'Helena, Montana, U.S.' '19610513' 'Los Angeles, California, U.S.'. person_art 'Cagney, James ' 'Cagney' 'James ' 'James Cagney' 'James Francis Cagney Jr. ' '18990715' 'New York City, U.S.' '19860330' 'Stanford, New York, U.S.'. person_art 'Lukas, Paul ' 'Lukas' 'Paul ' 'Paul Lukas' 'Pál Lukács ' '18940526' 'Budapest, Austria-Hungary' '19710815' 'Tangier, Morocco'. person_art 'Crosby, Bing ' 'Crosby' 'Bing ' 'Bing Crosby' 'Harry Lillis Crosby Jr.' '19030503' 'Tacoma, Washington, U.S.' '19771014' 'Alcobendas, Madrid, Spain'. person_art 'Milland, Ray ' 'Milland' 'Ray ' 'Ray Milland' 'Alfred Reginald Jones' '19070103' 'Neath, Glamorgan, Wales' '19860310' 'Torrance, California, U.S.'. person_art 'Rainer, Luise ' 'Rainer' 'Luise ' 'Luise Rainer' '' '19100112' 'Düsseldorf, Prussia, German Empire' '20141230' 'Belgravia, London, England'. person_art 'Leigh, Vivien ' 'Leigh' 'Vivien ' 'Vivien Leigh' 'Vivian Mary Hartley' '19131105' 'Darjeeling, Bengal Presidency, British India' '19670708' 'London, United Kingdom'. person_art 'Fontaine, Joan ' 'Fontaine' 'Joan ' 'Joan Fontaine' 'Joan de Beauvoir de Havilland' '19171022' 'Tokyo, Japan' '20131215' 'Carmel Highlands, California, U.S.'. person_art 'Jones, Jennifer ' 'Jones' 'Jennifer ' 'Jennifer Jones' 'Phylis Lee Isley' '19190302' 'Tulsa, Oklahoma, U.S.' '20091217' 'Malibu, California, U.S.'. person_art 'Bergman, Ingrid ' 'Bergman' 'Ingrid ' 'Ingrid Bergman' '' '19150829' 'Stockholm, Sweden' '19820829' 'London, England'. DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_person. WRITE / |{ fv_tablname } - INSERT INTO TABLE: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscargala USING fv_tablname TYPE ddobjname. DATA lt_oscargala LIKE gt_oscargala. DATA ls_oscargala LIKE LINE OF lt_oscargala. DEFINE oscar_gala. ls_oscargala-oscg_year = &1. ls_oscargala-oscg_city = &2. ls_oscargala-oscg_location = &3. ls_oscargala-oscg_host1 = &4. ls_oscargala-oscg_host2 = &5. ls_oscargala-oscg_host3 = &6. ls_oscargala-oscg_host4 = &7. ls_oscargala-oscg_host5 = &8. ls_oscargala-oscg_host6 = &9. APPEND ls_oscargala TO lt_oscargala. END-OF-DEFINITION. * oscar_gala '1928' 'Los Angeles' 'Hollywood Roosevelt Hotel' 'Douglas Fairbanks' '-' '-' '-' '-' '-'. * oscar_gala '1929' 'Los Angeles' 'The Ambassador Hotel' 'William C. DeMille' '-' '-' '-' '-' '-'. * oscar_gala '1930' 'Los Angeles' 'The Ambassador Hotel' 'Conrad Nagel' '-' '-' '-' '-' '-'. * oscar_gala '1931' 'Los Angeles' 'Biltmore Hotel' 'Lawrence Grant' '-' '-' '-' '-' '-'. * oscar_gala '1932' 'Los Angeles' 'The Ambassador Hotel' 'Conrad Nagel' '-' '-' '-' '-' '-'. * oscar_gala '1933' 'Los Angeles' 'The Ambassador Hotel' 'Will Rogers' '-' '-' '-' '-' '-'. oscar_gala '1934' 'Los Angeles' 'Biltmore Hotel' 'Irvin S. Cobb' '-' '-' '-' '-' '-'. oscar_gala '1935' 'Los Angeles' 'Biltmore Hotel' 'Frank Capra' '-' '-' '-' '-' '-'. oscar_gala '1936' 'Los Angeles' 'Biltmore Hotel' 'George Jessel' '-' '-' '-' '-' '-'. oscar_gala '1937' 'Los Angeles' 'Biltmore Hotel' 'Bob Burns' '-' '-' '-' '-' '-'. oscar_gala '1938' 'Los Angeles' 'Biltmore Hotel' '-' '-' '-' '-' '-' '-'. oscar_gala '1939' 'Los Angeles' 'Cocoanut Grove, The Ambassador Hotel' 'Bob Hope' '-' '-' '-' '-' '-'. oscar_gala '1940' 'Los Angeles' 'Biltmore Bowl, Biltmore Hotel' 'Bob Hope' '-' '-' '-' '-' '-'. oscar_gala '1941' 'Los Angeles' 'Biltmore Bowl, Biltmore Hotel' 'Bob Hope' '-' '-' '-' '-' '-'. oscar_gala '1942' 'Los Angeles' 'Cocoanut Grove, The Ambassador Hotel' 'Bob Hope' '-' '-' '-' '-' '-'. oscar_gala '1943' 'Los Angeles' 'Grauman''s Chinese Theatre' 'Jack Benny' '-' '-' '-' '-' '-'. oscar_gala '1944' 'Los Angeles' 'Grauman''s Chinese Theatre' 'John Cromwell' 'Bob Hope' '-' '-' '-' '-'. oscar_gala '1945' 'Los Angeles' 'Grauman''s Chinese Theatre' 'James Stewart' 'Bob Hope' '-' '-' '-' '-'. * oscar_gala '1946' 'Los Angeles' 'Shrine Auditorium' 'Jack Benny' '-' '-' '-' '-' '-'. * oscar_gala '1947' 'Los Angeles' 'Shrine Auditorium' 'Agnes Moorehead' 'Dick Powell' '-' '-' '-' '-'. * oscar_gala '1948' 'Los Angeles' 'The Academy Theater' 'Robert Montgomery' '-' '-' '-' '-' '-'. * oscar_gala '1949' 'Los Angeles' 'RKO Pantages Theatre' 'Paul Douglas' '-' '-' '-' '-' '-'. * oscar_gala '1950' 'Los Angeles' 'RKO Pantages Theatre' 'Fred Astaire' '-' '-' '-' '-' '-'. * oscar_gala '1951' 'Los Angeles' 'RKO Pantages Theatre' 'Danny Kaye' '-' '-' '-' '-' '-'. * oscar_gala '1952' 'Los Angeles' 'RKO Pantages Theatre' 'Conrad Nagel' 'Bob Hope' '-' '-' '-' '-'. * oscar_gala '1952' 'New York' 'NBC International Theatre' 'Frederic March' '-' '-' '-' '-' '-'. DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_oscargala. WRITE / |{ fv_tablname } - INSERT INTO TABLE: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscargala_000 USING fv_tablname TYPE ddobjname. DATA lt_oscargala LIKE gt_oscargala. DATA ls_oscargala LIKE LINE OF lt_oscargala. oscar_gala '1946' 'Los Angeles' 'Shrine Auditorium' 'Jack Benny' '-' '-' '-' '-' '-'. oscar_gala '1947' 'Los Angeles' 'Shrine Auditorium' 'Agnes Moorehead' 'Dick Powell' '-' '-' '-' '-'. DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_oscargala. WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_movie_000 USING fv_tablname TYPE ddobjname. DATA lt_mov_movies LIKE gt_mov_movies. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. lv_d = '21.11.1946'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mandt = '000' mov_year = '1946' mov_name = 'The Best Years of Our Lives' mov_date = lv_do mov_distributor = 'RKO' mov_budget = 2100 mov_boxoffice = 23700 mov_currency = 'USD' mov_duration = 0 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Best_Years_of_Our_Lives' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/4/42/The_Best_Years_of_Our_Lives_film_poster.jpg/220px-The_Best_Years_of_Our_Lives_film_poster.jpg' ) ). lv_d = '12.03.1946'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mandt = '000' mov_year = '1946' mov_name = 'To Each His Own' mov_date = lv_do mov_distributor = 'PAR' mov_budget = 0 mov_boxoffice = 3600 mov_currency = 'USD' mov_duration = 0 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/To_Each_His_Own_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/f/fd/ToeachhisownPOSTER.jpg/220px-ToeachhisownPOSTER.jpg' ) ). lv_d = '11.11.1947'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mandt = '000' mov_year = '1947' mov_name = 'Gentleman''s Agreement' mov_date = lv_do mov_distributor = '20CF' mov_budget = 1985 mov_boxoffice = 7800 mov_currency = 'USD' mov_duration = 0 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Gentleman%27s_Agreement' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/3/34/Gentleman%27s_Agreement_%281947_movie_poster%29.jpg/220px-Gentleman%27s_Agreement_%281947_movie_poster%29.jpg' ) ). lv_d = '25.12.1947'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mandt = '000' mov_year = '1947' mov_name = 'A Double Life' mov_date = lv_do mov_distributor = 'UNI' mov_budget = 0 mov_boxoffice = 1700 mov_currency = 'USD' mov_duration = 0 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/A_Double_Life_(1947_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/c/c6/A_Double_Life_poster.jpg/220px-A_Double_Life_poster.jpg' ) ). lv_d = '26.05.1947'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mandt = '000' mov_year = '1947' mov_name = 'The Farmer''s Daughter' mov_date = lv_do mov_distributor = 'RKO' mov_budget = 0 mov_boxoffice = 3300 mov_currency = 'USD' mov_duration = 0 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Farmer%27s_Daughter_(1947_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/0/0b/The_Farmer%27s_Daughter_%281947_film%29.jpg/220px-The_Farmer%27s_Daughter_%281947_film%29.jpg' ) ). DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_mov_movies. WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_movie USING fv_tablname TYPE ddobjname. DATA lt_mov_movies LIKE gt_mov_movies. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. lv_d = '22.02.1934'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1934' mov_name = 'It Happened One Night' mov_date = lv_do mov_distributor = 'COL' mov_budget = 325 mov_boxoffice = 2500 mov_currency = 'USD' mov_duration = 105 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/It_Happened_One_Night' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/d/dc/It-happened-one-night-poster.jpg/220px-It-happened-one-night-poster.jpg' ) ). lv_d = '08.11.1935'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1935' mov_name = 'Mutiny on the Bounty' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 1950 mov_boxoffice = 4460 mov_currency = 'USD' mov_duration = 132 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Mutiny_on_the_Bounty_(1935_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/b/b8/Mutiny_on_the_Bounty_poster.jpg/220px-Mutiny_on_the_Bounty_poster.jpg' ) ). lv_d = '09.05.1935'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1935' mov_name = 'The Informer' mov_date = lv_do mov_distributor = 'RKO' mov_budget = 243 mov_boxoffice = 950 mov_currency = 'USD' mov_duration = 91 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Informer_(1935_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/8/8b/The_Informer_poster.jpg/220px-The_Informer_poster.jpg' ) ). lv_d = '25.12.1935'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1935' mov_name = 'Dangerous' mov_date = lv_do mov_distributor = 'WB' mov_budget = 190 mov_boxoffice = 1300 mov_currency = 'USD' mov_duration = 79 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Dangerous_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/c/cb/DangerousPoster.jpg/220px-DangerousPoster.jpg' ) ). lv_d = '22.03.1936'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1936' mov_name = 'The Great Ziegfeld' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 2183 mov_boxoffice = 4673 mov_currency = 'USD' mov_duration = 177 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Great_Ziegfeld' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/a/a7/Great-Ziegfeld-1936-Poster.jpg/220px-Great-Ziegfeld-1936-Poster.jpg' ) ). lv_d = '16.04.1936'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1936' mov_name = 'Mr. Deeds Goes to Town' mov_date = lv_do mov_distributor = 'COL' mov_budget = 846 mov_boxoffice = 1000 mov_currency = 'USD' mov_duration = 116 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Mr._Deeds_Goes_to_Town' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/8/87/Mdgtt1936.jpg/220px-Mdgtt1936.jpg' ) ). lv_d = '22.02.1936'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1936' mov_name = 'The Story of Louis Pasteur' mov_date = lv_do mov_distributor = 'WB' mov_budget = 330 mov_boxoffice = 2200 mov_currency = 'USD' mov_duration = 87 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Story_of_Louis_Pasteur' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/b/b2/The_Story_of_Louis_Pasteur_poster.jpg/220px-The_Story_of_Louis_Pasteur_poster.jpg' ) ). lv_d = '11.08.1937'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1937' mov_name = 'The Life of Emile Zola' mov_date = lv_do mov_distributor = 'WB' mov_budget = 700 mov_boxoffice = 7700 mov_currency = 'USD' mov_duration = 116 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Life_of_Emile_Zola' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/6/62/The_Life_of_Emile_Zola_poster.jpg' ) ). lv_d = '21.10.1937'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1937' mov_name = 'The Awful Truth' mov_date = lv_do mov_distributor = 'COL' mov_budget = 600 mov_boxoffice = 3000 mov_currency = 'USD' mov_duration = 90 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Awful_Truth' mov_lnk_poster = 'https://en.wikipedia.org/wiki/File:Theawfultruth1937.jpg' ) ). lv_d = '11.05.1937'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1937' mov_name = 'Captains Courageous' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 1645 mov_boxoffice = 3133 mov_currency = 'USD' mov_duration = 115 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Captains_Courageous_(1937_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/2/2c/Captains_Courageous_poster.jpg/220px-Captains_Courageous_poster.jpg' ) ). lv_d = '29.01.1937'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1937' mov_name = 'The Good Earth' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 2816 mov_boxoffice = 3557 mov_currency = 'USD' mov_duration = 138 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Good_Earth_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/3/39/The_Good_Earth_%281937%29_poster.jpg/250px-The_Good_Earth_%281937%29_poster.jpg' ) ). lv_d = '01.09.1938'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1938' mov_name = 'You Can''t Take It with You' mov_date = lv_do mov_distributor = 'COL' mov_budget = 1645 mov_boxoffice = 7433 mov_currency = 'USD' mov_duration = 126 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/You_Can%27t_Take_It_with_You_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/7/70/You_Can%27t_Take_It_with_You_1938_Poster.jpg/220px-You_Can%27t_Take_It_with_You_1938_Poster.jpg' ) ). lv_d = '09.09.1938'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1938' mov_name = 'Boys Town' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 772 mov_boxoffice = 4058 mov_currency = 'USD' mov_duration = 93 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Boys_Town_(film)' mov_lnk_poster = 'https://en.wikipedia.org/wiki/File:Boys_town.jpg' ) ). lv_d = '10.03.1938'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1938' mov_name = 'Jezebel' mov_date = lv_do mov_distributor = 'WB' mov_budget = 1250 mov_boxoffice = 4300 mov_currency = 'USD' mov_duration = 103 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Jezebel_(1938_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/d/d7/Jesebel_movieposter.jpg/220px-Jesebel_movieposter.jpg' ) ). lv_d = '15.12.1939'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1939' mov_name = 'Gone With the Wind' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 3850 mov_boxoffice = 390000 mov_currency = 'USD' mov_duration = 221 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Gone_with_the_Wind_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/2/27/Poster_-_Gone_With_the_Wind_01.jpg/220px-Poster_-_Gone_With_the_Wind_01.jpg' ) ). lv_d = '15.05.1939'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1939' mov_name = 'Goodbye, Mr. Chips' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 1051 mov_boxoffice = 3252 mov_currency = 'USD' mov_duration = 114 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Goodbye,_Mr._Chips_(1939_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/c/ce/Goodbye%2C_Mr._Chips_%281939_film%29_poster.jpg/220px-Goodbye%2C_Mr._Chips_%281939_film%29_poster.jpg' ) ). lv_d = '21.03.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1940' mov_name = 'Rebecca' mov_date = lv_do mov_distributor = 'UA' mov_budget = 1288 mov_boxoffice = 6000 mov_currency = 'USD' mov_duration = 130 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Rebecca_(1940_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/1/16/Rebecca_1940_film_poster.jpg/220px-Rebecca_1940_film_poster.jpg' ) ). lv_d = '24.01.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1940' mov_name = 'The Grapes of Wrath' mov_date = lv_do mov_distributor = '20CF' mov_budget = 800 mov_boxoffice = 2500 mov_currency = 'USD' mov_duration = 129 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Grapes_of_Wrath_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/9/9f/Wrathposters141.jpg/220px-Wrathposters141.jpg' ) ). lv_d = '26.12.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1940' mov_name = 'The Philadelphia Story' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 914 mov_boxoffice = 3300 mov_currency = 'USD' mov_duration = 112 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Philadelphia_Story_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/5/54/The-Philadelphia-Story-%281940%29.jpg/220px-The-Philadelphia-Story-%281940%29.jpg' ) ). lv_d = '27.12.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1940' mov_name = 'Kitty Foyle' mov_date = lv_do mov_distributor = 'RKO' mov_budget = 738 mov_boxoffice = 2385 mov_currency = 'USD' mov_duration = 108 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Kitty_Foyle_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/f/fc/Kitty_Foyle_original_cinema_poster.jpg/220px-Kitty_Foyle_original_cinema_poster.jpg' ) ). lv_d = '27.12.1940'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1940' mov_name = 'Flight Command' mov_date = lv_do mov_distributor = 'IND' mov_budget = 837 mov_boxoffice = 2292 mov_currency = 'USD' mov_duration = 115 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Flight_Command' mov_lnk_poster = 'https://en.wikipedia.org/wiki/File:Flight_Command_FilmPoster.jpeg' ) ). lv_d = '28.10.1941'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1941' mov_name = 'How Green Was My Valley' mov_date = lv_do mov_distributor = '20CF' mov_budget = 800 mov_boxoffice = 2800 mov_currency = 'USD' mov_duration = 118 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/How_Green_Was_My_Valley_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/0/00/How_Green_Was_My_Valley_poster.jpg/220px-How_Green_Was_My_Valley_poster.jpg' ) ). lv_d = '02.07.1941'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1941' mov_name = 'Sergeant York' mov_date = lv_do mov_distributor = 'WB' mov_budget = 1694 mov_boxoffice = 8259 mov_currency = 'USD' mov_duration = 134 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Sergeant_York_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/4/4f/Sergeant_York_1941_Poster.jpg/225px-Sergeant_York_1941_Poster.jpg' ) ). lv_d = '14.11.1941'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1941' mov_name = 'Suspicion' mov_date = lv_do mov_distributor = 'RKO' mov_budget = 1103 mov_boxoffice = 4500 mov_currency = 'USD' mov_duration = 99 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Suspicion_(1941_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/8/8f/Suspicion_film_poster.jpg/220px-Suspicion_film_poster.jpg' ) ). lv_d = '04.06.1942'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1942' mov_name = 'Mrs. Miniver' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 1340 mov_boxoffice = 8900 mov_currency = 'USD' mov_duration = 133 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Mrs._Miniver' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/c/c4/Mrs_Miniver_poster.gif/220px-Mrs_Miniver_poster.gif' ) ). lv_d = '29.05.1942'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1942' mov_name = 'Yankee Doodle Dandy' mov_date = lv_do mov_distributor = 'WB' mov_budget = 1532 mov_boxoffice = 6523 mov_currency = 'USD' mov_duration = 126 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Yankee_Doodle_Dandy' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/2/23/Yankee_Doodle_Dandy_poster.jpeg/220px-Yankee_Doodle_Dandy_poster.jpe' ) ). lv_d = '23.01.1943'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1943' mov_name = 'Casablanca' mov_date = lv_do mov_distributor = 'WB' mov_budget = 878 mov_boxoffice = 3700 mov_currency = 'USD' mov_duration = 102 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Casablanca_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/commons/thumb/b/b3/CasablancaPoster-Gold.jpg/220px-CasablancaPoster-Gold.jpg' ) ). lv_d = '27.08.1943'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1943' mov_name = 'Watch on the Rhine' mov_date = lv_do mov_distributor = 'WB' mov_budget = 1099 mov_boxoffice = 2500 mov_currency = 'USD' mov_duration = 114 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Watch_on_the_Rhine' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/5/59/Watch_on_the_Rhine_poster.jpg/220px-Watch_on_the_Rhine_poster.jpg' ) ). lv_d = '21.12.1943'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1943' mov_name = 'The Song of Bernadette' mov_date = lv_do mov_distributor = '20CF' mov_budget = 1600 mov_boxoffice = 5000 mov_currency = 'USD' mov_duration = 155 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Song_of_Bernadette_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/f/f4/The_Song_of_Bernadette_film_poster.jpg' ) ). lv_d = '03.05.1944'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1944' mov_name = 'Going My Way' mov_date = lv_do mov_distributor = 'PAR' mov_budget = 0 mov_boxoffice = 7800 mov_currency = 'USD' mov_duration = 126 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Going_My_Way' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/a/ad/GoingmywayBing.jpg/220px-GoingmywayBing.jpg' ) ). lv_d = '04.05.1944'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1944' mov_name = 'Gaslight' mov_date = lv_do mov_distributor = 'MGM' mov_budget = 2068 mov_boxoffice = 4613 mov_currency = 'USD' mov_duration = 114 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Gaslight_(1944_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/6/66/Gaslight-1944.jpg/220px-Gaslight-1944.jpg' ) ). lv_d = '29.11.1945'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1945' mov_name = 'The Lost Weekend' mov_date = lv_do mov_distributor = 'PAR' mov_budget = 1250 mov_boxoffice = 11000 mov_currency = 'USD' mov_duration = 99 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/The_Lost_Weekend_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/5/59/The_Lost_Weekend_poster.jpg/220px-The_Lost_Weekend_poster.jpg' ) ). lv_d = '28.09.1945'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1945' mov_name = 'Mildred Pierce' mov_date = lv_do mov_distributor = 'WB' mov_budget = 1453 mov_boxoffice = 5638 mov_currency = 'USD' mov_duration = 111 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Mildred_Pierce_(film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/e/e0/Mildred-Pierce-One-Sheet.jpg' ) ). lv_d = '04.05.1948'. lv_do = lv_d+6(4) && lv_d+3(2) && lv_d(2). lt_mov_movies = VALUE #( BASE lt_mov_movies ( mov_year = '1948' mov_name = 'Hamlet' mov_date = lv_do mov_distributor = 'UNI' mov_budget = 1469 mov_boxoffice = 3250 mov_currency = 'USD' mov_duration = 155 mov_lnk_wiki = 'https://en.wikipedia.org/wiki/Hamlet_(1948_film)' mov_lnk_poster = 'https://upload.wikimedia.org/wikipedia/en/thumb/d/d3/Amleto48-01.jpg/220px-Amleto48-01.jpg' ) ). DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE : rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_mov_movies. WRITE / |{ fv_tablname } - INSERT INTO TABLE : rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_oscart USING fv_tablname TYPE ddobjname. DATA ls_oscart LIKE LINE OF gt_oscart. DATA lt_oscart LIKE gt_oscart. DATA lv_year_base TYPE n LENGTH 4 VALUE '1933'. DO 12 TIMES. CLEAR ls_oscart. ls_oscart-mandt = sy-mandt. ls_oscart-osc_year = lv_year_base + sy-index. ls_oscart-osc_lang = 'D'. ls_oscart-osc_title = |{ sy-index + 6 }. Oscar-Verleihung im Jahr { ls_oscart-osc_year }| && | für das Jahr { ls_oscart-osc_year - 1 }|. APPEND ls_oscart TO lt_oscart. ls_oscart-osc_lang = 'E'. ls_oscart-osc_title = |{ sy-index + 6 }th Academy Awards in { ls_oscart-osc_year }| && | for { ls_oscart-osc_year - 1 }|. APPEND ls_oscart TO lt_oscart. ENDDO. DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE : rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_oscart. WRITE / |{ fv_tablname } - INSERT INTO TABLE : rc = #, sy-subrc = { sy-subrc }|. CLEAR lt_oscart. lv_year_base = '1945'. DO 2 TIMES. CLEAR ls_oscart. ls_oscart-mandt = '000'. ls_oscart-osc_year = lv_year_base + sy-index. ls_oscart-osc_lang = 'D'. ls_oscart-osc_title = |{ sy-index + 6 }. Oscar-Verleihung im Jahr { ls_oscart-osc_year }| && | für das Jahr { ls_oscart-osc_year - 1 }|. APPEND ls_oscart TO lt_oscart. ls_oscart-osc_lang = 'E'. ls_oscart-osc_title = |{ sy-index + 6 }th Academy Awards in { ls_oscart-osc_year }| && | for { ls_oscart-osc_year - 1 }|. APPEND ls_oscart TO lt_oscart. ENDDO. DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_oscart. WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_moviest_000 USING fv_tablname TYPE ddobjname. DATA lt_moviest LIKE gt_moviest. DATA ls_moviest LIKE LINE OF lt_moviest. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. ls_moviest-mandt = '000'. ls_moviest-mov_year = '1946'. ls_moviest-mov_name = 'The Best Years of Our Lives'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Die besten Jahre unseres Lebens'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Les Plus Belles Années de notre vie'. APPEND ls_moviest TO lt_moviest. ls_moviest-mandt = '000'. ls_moviest-mov_year = '1946'. ls_moviest-mov_name = 'To Each His Own'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Mutterherz'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'À chacun son destin'. APPEND ls_moviest TO lt_moviest. ls_moviest-mandt = '000'. ls_moviest-mov_year = '1947'. ls_moviest-mov_name = 'Gentleman''s Agreement'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Tabu der Gerechten'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Mur invisible'. APPEND ls_moviest TO lt_moviest. ls_moviest-mandt = '000'. ls_moviest-mov_year = '1947'. ls_moviest-mov_name = 'A Double Life'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Ein Doppelleben'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Othello'. APPEND ls_moviest TO lt_moviest. ls_moviest-mandt = '000'. ls_moviest-mov_year = '1947'. ls_moviest-mov_name = 'The Farmer''s Daughter'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Die Farmerstochter'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Ma femme est un grand homme'. APPEND ls_moviest TO lt_moviest. DELETE FROM (fv_tablname) USING CLIENT '000'. WRITE / |{ fv_tablname } - DELETE FROM TABLE 000: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) CLIENT SPECIFIED FROM TABLE lt_moviest. WRITE / |{ fv_tablname } - INSERT INTO TABLE 000: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** FORM fill_tabl_moviest USING fv_tablname TYPE ddobjname. DATA lt_moviest LIKE gt_moviest. DATA ls_moviest LIKE LINE OF lt_moviest. DATA lv_d TYPE c LENGTH 10. DATA lv_do TYPE d. ls_moviest-mov_year = '1934'. ls_moviest-mov_name = 'It Happened One Night'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Es geschah in einer Nacht'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'New York-Miami'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1935'. ls_moviest-mov_name = 'Mutiny on the Bounty'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Meuterei auf der Bounty'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Les Révoltés du Bounty'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1935'. ls_moviest-mov_name = 'The Informer'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Der Verräter'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Mouchard'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1935'. ls_moviest-mov_name = 'Dangerous'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Gefährliche Liebe'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'L''Intruse'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1936'. ls_moviest-mov_name = 'The Great Ziegfeld'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Der große Ziegfeld'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Grand Ziegfeld'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1936'. ls_moviest-mov_name = 'Mr. Deeds Goes to Town'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Mr. Deeds geht in die Stadt'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'L''Extravagant Mr. Deeds'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1936'. ls_moviest-mov_name = 'The Story of Louis Pasteur'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Louis Pasteur'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'La Vie de Louis Pasteur'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '193^7'. ls_moviest-mov_name = 'The Life of Emile Zola'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Das Leben des Emile Zola'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'La Vie de Louis Pasteur'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1937'. ls_moviest-mov_name = 'The Awful Truth'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Die schreckliche Wahrheit'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Cette sacrée vérité'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1937'. ls_moviest-mov_name = 'Captains Courageous'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Manuel'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Capitaines courageux'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1937'. ls_moviest-mov_name = 'The Good Earth'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Die gute Erde'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Visages d''Orient'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1938'. ls_moviest-mov_name = 'You Can''t Take It with You'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Lebenskünstler'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Vous ne l''emporterez pas avec vous'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1938'. ls_moviest-mov_name = 'Boys Town'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Teufelskerle'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Des hommes sont nés'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1938'. ls_moviest-mov_name = 'Jezebel'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Jezebel - Die boshafte Lady'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'L''Insoumise'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1939'. ls_moviest-mov_name = 'Gone With the Wind'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Vom Winde verweht'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Autant en emporte le vent'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1939'. ls_moviest-mov_name = 'Goodbye, Mr. Chips'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Auf Wiedersehen, Mr. Chips'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Au revoir Mr. Chips'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1940'. ls_moviest-mov_name = 'Rebecca'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Rebecca'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Rebecca'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1940'. ls_moviest-mov_name = 'The Grapes of Wrath'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Früchte des Zorns'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Les Raisins de la colère'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1940'. ls_moviest-mov_name = ''. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'The Philadelphia Story'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Die Nacht vor der Hochzeit'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1940'. ls_moviest-mov_name = 'Kitty Foyle'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Fräulein Kitty'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Kitty Foyle'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1940'. ls_moviest-mov_name = 'Flight Command'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = ''. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'L''appel des ailes'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1941'. ls_moviest-mov_name = 'How Green Was My Valley'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Schlagende Wetter'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Qu''elle était verte ma vallée'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1941'. ls_moviest-mov_name = 'Sergeant York'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Sergeant York'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Sergent York'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1941'. ls_moviest-mov_name = 'Suspicion'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Verdacht'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Soupçons'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1942'. ls_moviest-mov_name = 'Mrs. Miniver'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Mrs. Miniver'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Madame Miniver'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1942'. ls_moviest-mov_name = 'Yankee Doodle Dandy'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Yankee Doodle Dandy'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'La Glorieuse Parade'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1942'. ls_moviest-mov_name = 'Casablanca'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Casablanca'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Casablanca'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1943'. ls_moviest-mov_name = 'Watch on the Rhine'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Die Wacht am Rhein'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Quand le jour viendra'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1943'. ls_moviest-mov_name = 'The Song of Bernadette'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Das Lied von Bernadette'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Chant de Bernadette'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1944'. ls_moviest-mov_name = 'Going My Way'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Der Weg zum Glück'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'La Route semée d''étoiles'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1944'. ls_moviest-mov_name = 'Gaslight'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Das Haus der Lady Alquist'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Hantise'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1945'. ls_moviest-mov_name = 'The Lost Weekend'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Das verlorene Wochenende'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Poison'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1945'. ls_moviest-mov_name = 'Mildred Pierce'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Solange ein Herz schlägt'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Le Roman de Mildred Pierce'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_year = '1948'. ls_moviest-mov_name = 'Hamlet'. ls_moviest-mov_lang = 'E'. ls_moviest-mov_name_foreign = ls_moviest-mov_name. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'D'. ls_moviest-mov_name_foreign = 'Hamlet'. APPEND ls_moviest TO lt_moviest. ls_moviest-mov_lang = 'F'. ls_moviest-mov_name_foreign = 'Hamlet'. APPEND ls_moviest TO lt_moviest. DELETE FROM (fv_tablname). WRITE / |{ fv_tablname } - DELETE FROM TABLE: rc = #, sy-subrc = { sy-subrc }|. INSERT (fv_tablname) FROM TABLE lt_moviest. WRITE / |{ fv_tablname } - INSERT INTO TABLE: rc = #, sy-subrc = { sy-subrc }|. ENDFORM. ********************************************************************** ********************************************************************** ********************************************************************** ##################################################################################################################################################### ##################################################################################################################################################### ##################################################################################################################################################### #####################################################################################################################################################